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ILINGUAGGI 
DI BASSO LIVELLO 


■ 

CHE COS'È IL CODICE MACCHINA? 

■ 

VANTAGGI DEL CODICE MACCHINA 

RISPETTO AL BASIC 

■ 

CAPIRE GLI OPCODE 

E IL LINGUAGGIO ASSEMBLY 



Azioni più rapide e movimenti più 
scorrevoli sullo schermo sono solo 
due dei vantaggi che si hanno 
programmando i giochi in codice 
macchina. Prima, però, occorre 
sapere come il computer interpreta 
il codice macchina 

La maggior parte dei possessori di home 
computer trovano il BASIC più che adatto 
alle loro necessità: lo si può usare per 
semplici giochi o per complessi program¬ 
mi applicativi. Quel che più conta, in ogni 
caso, è che il linguaggio BASIC è facile da 
imparare, il suo uso è molto elastico e lo si 
può adattare a macchine diverse. 

Gli unici inconvenienti sono la lentezza 
d’esecuzione e la relativamente cospicua 
occupazione di memoria: i programmi BA¬ 
SIC divorano la memoria! 

Quando si vogliono scrivere dei buoni 
giochi, ci si rende conto quanto i movi¬ 
menti generati dal BASIC siano “a scatti”. 
Inoltre, è possibile controllare una sola 


funzione per volta: se si spara un proietti¬ 
le, ad esempio, tutte le altre operazioni 
devono essere momentaneamente sospe¬ 
se, anche se solo per brevi attimi. E se nel 
programma compaiono molti cicli FOR ... 
NEXT, l’esecuzione può diventare esaspe¬ 
ratamente lenta. 

È per queste ragioni che un program¬ 
matore con serie intenzioni lascia alle 
proprie spalle il BASIC, per dedicarsi al co¬ 
dice macchina, che consente un maggior 
controllo sul computer. 


CHE COS E IL CODICE MACCHINA? 


Una delle ragioni della lentezza del BASIC 
deriva dal fatto che si tratta di un lin¬ 
guaggio di alto livello: ciò significa che 
vengono impiegate parole ed espressioni 
aritmetiche vicine al linguaggio umano. 

Ma il computer non ‘pensa’ in inglese, 
né in alcun altro linguaggio umano. Per 
esser sinceri, un computer non pensa, né 
capisce niente, ma opera secondo impulsi 
elettrici che rappresentano numeri. Il lin¬ 
guaggio macchina, dunque, è unicamente 


composto dall’equivalente di puri e sem¬ 
plici numeri. Perciò, quando si program¬ 
ma in codice macchina, non ci si attende 
certo che il computer parli la nostra lin¬ 
gua: siamo noi, in un certo senso, a espri¬ 
merci nella sua. Tanto per fare un esem¬ 
pio (in questo caso per lo Spectrum), il co¬ 
dice macchina ha questo aspetto: 

B9 28 08 


mentre in BASIC ciò equivale a: 

100 IF A = C THEN GOTO 190 


Il codice macchina è, dunque, una serie di 
numeri a due cifre. Le lettere che talvolta 
appaiano (come la B nell’esempio) sono 
anch’esse da considerarsi numeri: infatti, 
nella numerazione esadecimale B rappre¬ 
senta 11. 

Questi numeri esadecimali vengono de¬ 
positati direttamente nella memoria del 
computer e con essi si possono rappresen¬ 
tare codici operativi, dati, numeri, lettere 
o indirizzi di memoria. 

Il computer è in grado di distinguere se 
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si tratta di un’istruzione o di un indirizzo 
o di un dato, soltanto in base all’ordine 
con cui compaiono i codici. Per esempio, il 
primo numero, in un programma, deve 
sempre corrispondere a quello di un’istru¬ 
zione: se per errore inserissimo per primo 
un codice relativo a un dato, il computer 
tenterebbe di eseguirlo come se si trattas¬ 
se di un’istruzione, causando un caos in¬ 
descrivibile in tutto ciò che segue. 

È quindi necessaria una meticolosa cu¬ 
ra nell’immissione di tali codici: uri solo 
errore e il programma non funziona o, 
peggio ancora, viene cancellato compieta- 
mente dalla memoria. 


VANTAGGI DEL CODICE MACCHINA 


Durante l’immissione di un programma 
BASIC, il computer deve interpretare cia¬ 
scuna linea, prima di poterla eseguire. 
Questo procedimento è lento e laborioso: 
generalmente, a un’istruzione BASIC equi¬ 
vale tutta una serie di istruzioni in codice 
macchina e, poiché le operazioni sono 
spesso abbastanza complesse e ripetitive, 
i tempi si allungano di conseguenza. 

Quando si lancia un programma scritto 
interamente in BASIC, ciascuna linea viene 
interpretata e quindi eseguita, prima di 
poter passare a quella successiva. Nel ca¬ 
so dei cicli FOR ... NEXT, le cose si aggra¬ 
vano ulteriormente: a ogni passaggio, le 
linee devono essere nuovamente inter¬ 
pretate, con grande spreco di tempo e di 
energia. 

Per sommi capi, il procedimento segui¬ 
to dal BASIC si può riassumere così: 

• Estrazione dell’istruzione 

• Trasposizione dell’istruzione in una se¬ 
rie di codici operativi del linguaggio mac¬ 
china 

• Esecuzione di un codice operativo alla 
volta 

• Passaggio alla successiva istruzione 

Non è difficile rendersi conto di quanto 

sia lento un simile modo di procedere. 

È possibile compilare i programmi BA¬ 
SIC (ossia convertire in una sola passata 
tutto il programma in codice macchina, 
prima di eseguire un RUN), mediante ap¬ 
positi programmi chiamati, appunto, 
compilatori. 

Ma, sebbene vi sia un notevole guada¬ 
gno, i programmi risultano ancora lunghi 
e più lenti del necessario. 

Usando il codice macchina, invece, il 
processo di conversione, pur sempre ne¬ 
cessario per generare gli impulsi elettrici 
comprensibili per il microprocessore, è ri¬ 
dotto al minimo: ogni numero corrispon¬ 
de a una particolare configurazione di se¬ 
gnali. Niente complicati procedimenti in¬ 
terpretativi, quindi, ma una corrispon- 
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denza univoca tra istruzioni e codici. 

In altre parole, i programmi in codice 
macchina sono molto più corti e veloci di 
quelli scritti in BASIC 
Per quantificare la diversa velocità d’e¬ 
secuzione dei due linguaggi, si usi il se¬ 
guente programma, nel quale una stessa 
operazione viene eseguita prima in BASIC 
e poi in codice macchina: 

a 

1 MODE 6 

10 FOR T = 8.1000 TO &101C 
20 READ A:?T = A 
30 NEXT 

40 PRINT“LA LENTEZZA DEL BASIC..." 

60 FOR T = &6100 TO 8.7FFF 
70 ?T = ?(T +8.2000) 

80 NEXT 
90 CLS 

100 PRINT’IA VELOCITÀ DEL CODICE 
MACCHINA" 

105 DUMMY = INKEY(100) 

110 CALL 8.1000 
120 END 

200 DATA 162,96,160,0,185.0.128,153,0,96, 
200,208,247,232,138,24,105,32,141,6,16, 
142,9,16,224,128,208.230,96 



10 CLEAR 29999 

20 FOR n = 30000 TO 30011 

30 READ a 

40 POKE n,a 

50 NEXT n 

60 PRINT “Questo è il BASIC" 

70 FOR n = 16384 TO 22527 
80 POKE n.PEEK (n-16384) 

90 NEXT n 
100 CLS 

110 PRINT “Adesso... il CODICE MACCHINA" 
120 PAUSE 100 
130 RANDOMIZE USR 30000 
140 STOP 

150 DATA 33,0,0,17,0,64,1,0,24,237,176,201 


L t _^ 


ftl 


10 CLEAR 200,31000 
20 DEFUSR0 = 31000 
30 FOR N = 31000 TO 31015 
40 READ A 
50 POKE N,A 
60 NEXT 
70 CLS0 

80 PRINTC+0,"QUESTO È IL BASIC!” 
90 FOR N = 1 TO 500:NEXT 
100 FOR N = 1056 TO 1535 
110 POKE N,PEEK(N +34000) 

120 NEXT 

130 FOR N = 1 TO 1000:NEXT 
140 CLS0 



150 PRINT® 0,“QUESTO È IL CODICE 
MACCHINA!” 

160 FOR N = 1 TO 1000: NEXT 
170 N = USR0(0) 

180 FOR N = 1 TO 2000:NEXT 
190 DATA 206,136,240,142,4,32,166,192, 
167,128,140,6,0,38,247,57 

l&J 

10 PRINT “□!; LA LENTEZZA DEL 
BASIC...":P0KE 53280,7:P0KE 53281,7 
20 FOR Z = 0 TO 959:P0KE 55336+ Z,1: 

POKE 1064+Z,46:NEXT Z 
30 FOR Z = 1 TO 1000:NEXT Z 
40 PRINT 

50 FOR Z = 1 TO 1000:NEXT Z 
100 PRINT"@LA VELOCITÀ DEL CODICE 
MACCHINA”:P0KE 53280,10:POKE 
53281,10 

105 FOR Z = 1 TO 2000:NEXT Z 
110 FOR Z = 0 TO 19:READ X:P0KE 832+ Z, 
X:NEXT Z 
120 SYS 832 

130 DATA 162,0,169,46,157,40,4,157,0,5,157, 

0.6 

135 DATA 157,232,6,232,208,241,96 

SE 

10 PRINT-Q^aLA LENTEZZA DEL 
BASIC...”:P0KE 36879,8 
20 FOR Z = 0 TO 483:P0KE 7702+ Z,46: 
NEXTZ 

30 FOR Z = 1 TO 1000:NEXT Z 
40 PRINT “□" 

50 FOR Z = 1 TO 1000:NEXT Z 
100 PRINT” @ LA VELOCITÀ DEL CODICE 
MACCHINA” 
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105 FOR Z = 1 TO 2000:NEXT Z 
110 FOR Z = 0 TO 13:READX:POKE 832+ Z, 
X:NEXT Z 
120 SYS 832 

130 DATA 162,0,169,46,157,22,30,157,0,31, 
232,208,245,96 


Il programma, in sé è poco interessante, 
consente tuttavia di apprezzare quanto la 
versione in codice macchina abbia una 
maggiore velocità di esecuzione. 


IL LINGUAGGIO ASSEMBLY 


Uno svantaggio non indifferente del codi¬ 
ce macchina è la difficoltà che si incontra 
nella stesura e nella verifica dei program¬ 
mi. Sono pochi coloro che riescono a ri¬ 
cordarsi tutti i codici numerici relativi al¬ 
le istruzioni, ma, anche se ciò avvenisse, 
rimane pur sempre difficile distinguere i 
codici operativi (per brevità: opcode) dai 
valori usati per i dati. Non si può esami¬ 
nare la parte centrale di un programma 
in codice macchina senza prima aver letto 
il programma fin dall’inizio. 

Sfortunatamente, ogni microprocesso¬ 
re ha un proprio insieme di opcode e ciò 
rende difficile trascrivere un programma 
da un apparecchio all’altro. 

Gran parte degli ostacoli vengono aggi¬ 
rati ricorrendo, durante la stesura di un 



programma, all’uso di un linguaggio in¬ 
termedio, noto come linguaggio assem- 
bly, che si colloca a un livello appena su¬ 
periore al codice macchina (e che tratte¬ 
remo più a fondo in successive lezioni). 

Nell’assembly, ai vari codici operativi 
del microprocessore corrispondono sigle, 
molto più facili da ricordare, chiamate an¬ 
che codici mnemonici. Ad esempio: LD si¬ 
gnifica ‘load’ (caricamento), mentre JP 
stà per ‘jump’ (salto). 

Con un po’ di pratica, la lettura dell’as- 
sembly, anche se non del tutto immedia¬ 
ta, risulta facile quanto quella del BASIC. 

Lo svantaggio è che il computer non 
può leggere direttamente i programmi 
scritti in assembly: occorre, invece, as¬ 
semblare il programma, impiegando un 
apposito assemblatore (che può essere an¬ 
che scritto in BASIC), prima di passare al¬ 
l’esecuzione. 

Tuttavia, questo processo risulta anco¬ 
ra semplice, se paragonato alla decodifica 
necessaria per i programmi in BASIC. Il 
linguaggio assembly è equivalente al codi¬ 
ce macchina: in altre parole, ciascuna 
istruzione dell’assembly corrisponde 
esattamente a un numero nel codice mac¬ 
china e lo stesso vale per ciascun caratte¬ 
re o cifra dei dati. 

L’assemblatore, inoltre, anziché ese¬ 
guire ogni istruzione durante la trasposi¬ 
zione, converte l’intero programma una 
sola volta per tutte, producendone una 
versione eseguibile. 

Il Micro BBC e l’Electron sono dotati di 
un programma assembler incorporato, 
mentre per il Commodore, lo Spectrum e 
il Dragon ne sono disponibili diverse ver¬ 
sioni commerciali. L’alternativa, per chi 
non possiede un assembler, è di immette¬ 
re i codici manualmente. Anche la stesura 
dei programmi più semplici risulta facili¬ 
tata se si impiega il linguaggio assembly. 
In un secondo momento, tavole di conver¬ 
sione alla mano, si passa alla trasposizio¬ 
ne in codice macchina per un particolare 
modello di computer. 

Può esser utile qualche prova con i pro¬ 
grammi che seguono. In essi, il codice 
macchina, contenuto nelle frasi DATA, è 
depositato in memoria dal programma 
BASIC. Per comodità le frasi DATA sono 
raggruppate in fondo ai programmi: 



10 CLEAR 29999 

20 FOR n = 30000 TO 30020 

30 READ a 

40 POKE n,a 

50 NEXT n 

60 RANDOMIZE USR 30000 
70 GOTO 60 


80 DATA 17,0,88,46,0,237,95,71,58,140,92, 
128,230,63,103,1,0,3,237,176,201 

B 

10 FOR T = 4047 TO 4123 

20 READ A?T = A 

30 NEXT T:CALL 4047 

40 DATA 160,0,185,0,128,41,7,9,144,153,0, 

124,200,169,255,153,0,124,200,192,0,208, 
235 

50 DATA 174,211,15,232,224,255,208,2,162, 

128,142,211,15,174,218,15,232,224,128, 

240.8.142.218.15 

60 DATA 142,224,15,208,206,162,124,142, 

218,15,142,224,15,24,173,217,15,105,1, 

41.1.141.217.15.141.223.15.76.209.15 

mké 

10 CLEAR 200,31000 

20 DEFUSR0 = 31000 

30 FOR N = 31000 TO 31020 

40 READ A 

50 POKE N,A 

60 NEXT 

70 N = USR0(0) 

80 POKE 32767,RND(256) — 1 
90 FOR N = 1 TO 100:NEXT 
100 GOTO 70 

110 DATA 142,4,0,206,136,184,166,192,184, 

127,255,138,129,167,128,140,6,0,38,242, 
57 


20 FOR Z = 1 TO 26 
30 PRINT 

□□□□□□□□□□□□□DO 
40 NEXT Z 

100 FOR Z = 0 TO 25:READ X:P0KE 832+ Z, 
X:NEXT Z 

110 SYS 832:F0R Z=1 TO 50:NEXT Z: 

GOTO 110 

120 DATA 162,0,200,192,7,208,2,160,0,152, 
157,0,216,157,0,217,157,0,218 
130 DATA 157,232,218,232,208,233,96 

SE 

20 FOR Z = 1 TO 25 
30 PRINT "3 □□□□□□□□□□ 
□□□□□□□□□□□□”; 

40 NEXT Z 

100 FOR Z = 0 TO 19:READ X:P0KE 832+ Z, 
X:NEXT Z 

110 SYS 832:FOR Z = 1 TO 50:NEXT Z:G0T0 
110 

120 DATA 162,0,200,192,7,208,2,160,0,152, 
157,0,150 

130 DATA 157,0,151,232,208,239,96 

Adesso, si provi a scrivere un programma 
in BASIC, analogo a quello in codice mac- 67 
china: i vantaggi di quest’ultimo risaltano 
immediatamente. 
















3 GIOCHI AL COMPUTER 3 


DWERTIAiOCI A 



LABIRINTI 


I programmi di giochi, impostati su 
sofisticati labirinti, sono certamente 
complessi, ma se ne possono creare 
versioni più semplici con qualche 
ciclo FOR ... NEXT e qualche 
frase DATA 


68 




1. Un semplice labirinto da creare sullo Spectrum 


I labirinti hanno un fascino inesauribile 
sui possessori di computer e vedremo tra 
breve come entrare a far parte della folta 
schiera di creatori di giochi di questo ge¬ 
nere, progettando i propri labirinti. 

Nel nostro primo tentativo non sono 
previsti né ostacoli né avversari ai quali 
sfuggire. Tuttavia, già dai primi esempi, 
si cominciano a imparare le tecniche ne¬ 
cessarie affinché gli oggetti in movimen¬ 
to nel labirinto non ‘trapassino’ i muri che 
delimitano il percorso obbligato, una delle 
necessità basilari di tutti i labirinti. Co¬ 
munque, per rendere questo primo gioco 
più competitivo, è previsto un conteggio 
di punti e dei tempi, un totalizzatore del 
punteggio massimo raggiunto. 


Il miglior sistema è sempre quello di par¬ 
tire dalla realizzazione degli elementi di 
base, sviluppando gradualmente su di essi 
il resto del gioco. Ecco come definire l’im¬ 
magine di un labirinto sullo Spectrum: 
100 FOR n = 3 TO 17 
110 READ a$ 

120 FOR m = 7 TO 21 
130 PRINT AT n,m;“.” 

140 IF a$(m — 6) = "p” THEN PRINT PAPER 
1; INK 1;AT n,m;“ET’ 

150 NEXT m 
160 NEXT n 


interno. Perciò aggiungiamo: 

50 LET x = 10 
60 LET y = 14 

1000 PRINT PAPER 6; INK 2;AT x,y;. 

1010 LET xx = x 
1020 LET yy = y 

1030 IF INKEYS = “ ” THEN GOTO 1030 
1040 IF INKEYS = ‘'p" AND ATTR (x-1,y)< 
>9 THEN LET x = x-1 
1050 IF INKEYS = T AND ATTR (x + 1,y)< 
>9 THEN LET x = x + 1 
1060 IF INKEYS = “z" AND ATTR (x,y-1)< 
>9 THEN LET y = y — 1 
1070 IF INKEYS = “x" AND ATTR (x,y + 1)< 
>9 THEN LET y = y + 1 
1080 PRINT INK 7;AT xx,yy;“n" 

1090 GOTO 1000 

Se si è già fatta pratica con il controllo dei 
movimenti da tastiera (vedere alle pagine 
54-59), la maggior parte di queste linee di 
programma sarà già nota. Il nostro ‘ami¬ 
co’ asterisco è visualizzato nella posizione 
x,y e viene fatto muovere dal giocatore 
mediante una serie di INKEYS. (Un partico¬ 
lare importante: il personaggio entra sol¬ 
tanto nei quadrati che non sono blu, vale 
a dire se ATTR non vale 9, il numero iden- 


9000 DATA “ppppppppppppppp” 


9010 DATA "p.p” 

9020 DATA “p . p p . p p . p p . p p . p" 

9030 DATA "p . p.p . p" 

9040 DATA “p . . . p . p . p . p . . . p” 

9050 DATA “p . p p p . p . p . p p p . p" 

9060 DATA “p.p . p.p" 

9070 DATA “p p p p . p p . p p . p p p p" 

9080 DATA “p.p . p.p” 

9090 DATA “p . p p p . p . p . p p p . p" 

9100 DATA "p . . . p . p . p . p . . . p” 

9110 DATA "p . p.p . p” 

9120 DATA “p . pp . pp . pp . pp . p” 

9130 DATA "p.p” 


9140 DATA “ppppppppppppppp” 

Le linee 100, 120, 150 e 160, con un paio 
degli ormai familiari cicli FOR ... NEXT, co¬ 
struiscono i confini del labirinto. La linea 
130 visualizza, mediante una PRINT, un 
punto in ciascun quadrato del percorso. 

A questo punto, il controllo passa alle li¬ 
nee 110 e 140, che leggono i valori conte¬ 
nuti nelle frasi DATA (linee da 9000 a 
9140), convertendo ciascun punto in uno 
spazio, ma in colore blu su sfondo blu, se il 
dato letto è la lettera p. Sullo Spectrum 
non si possono sovrapporre due caratteri 
nella medesima locazione dello schermo. 


IL MANGIAPUNTI' 


Un labirinto è del tutto inutile senza un 
qualche personaggio che si muova al suo 
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tificativo del colore usato per tracciare i 
contorni del labirinto). 

Volendo un labirinto di colore diverso, 
il valore di ATTR si calcola così: 

1 Si prende il codice di colore, riportato 
sulla tastiera, usato per la INK. Nel nostro 
caso questo vale 1. 

2 Si prende il codice di colore usato per 
PAPER (1 nel nostro caso) e lo si moltiplica 
per 8. 

3 Si somma 64 se nell’area in questione è 
usato l’attributo BRIGHT. Nel nostro caso, 
il valore è 0. 

4 Si aggiunge 128 se l’area in questione è 
in FLASH. Nel nostro caso, il valore è 0. 
Adesso si sommano tutti i valori: il risul¬ 
tato è il numero da dare a ATTR. 

La variabile ATTR può venir impiegata 
anche per altri scopi, oltre a quello di evi¬ 
tare che il personaggio sconfini. Per 
esempio, può servire per indicare se, es¬ 
sendo il personaggio entrato in una zona 
‘proibita’, è il caso di farlo esplodere. Nel 
caso di un INK rosso e di un PAPER rosso, 
sarebbe necessaria una linea del tipo: 

IF ATTR (x,y) = 18 THEN ... 


23673)/50 

2010 PRINT AT 1,6;t;“DSECONDO” 

2020 IF t < bt THEN LET bt = t 
2030 PRINT AT 19,4;“MIGU0R TEMPCO”; 
bCDSECONDI” 

Per verificare il funzionamento, serve 
una linea provvisoria, da cancellare in se¬ 
guito: 

1100 GOTO 1000 

La parte relativa al punteggio è semplice. 
La linea 40 azzera i punti. La linea 1090 
somma 1 al punteggio ogni volta che vie¬ 
ne mangiato un puntino o, per meglio di¬ 
re, quando INK e PAPER del quadrato occu¬ 
pato non sono ambedue bianchi (altro uso 
di ATTR!). La linea 1025, che entra in azio¬ 
ne se tutti i puntini sono stati mangiati, 
consente la verifica del tempo impiegato 
dal giocatore (linea 2000). 

Il calcolo dei tempi è leggermente più 


Nel frattempo, le linee 1010, 1020 e 1080 
definiscono la posizione appena lasciata 
dal personaggio, provvedendo a cancella¬ 
re (con la PRINT di uno spazio) il puntino 
‘mangiato’. Si noti la loro collocazione: 
subito prima e subito dopo le INKEY$. 

La linea 1090 è provvisoria. Il suo scopo 
è di permettere una prima verifica del 
programma. Senza il ciclo da essa intro¬ 
dotto, infatti, il personaggio si muovereb- 
be di un solo quadrato e subito dopo il pro¬ 
gramma terminerebbe. 


Adesso abbiamo l’occorrente per un sem¬ 
plice gioco. Per renderlo più interessante, 
possiamo dotarlo di una routine per il cal¬ 
colo del punteggio e dei tempi. Si aggiun¬ 
gano le seguenti linee: 

10 LET bt = 100000 
40 LET S = 0 

990 POKE 23672, 0: POKE 23673, 0 
1025 IF S = 110 THEN GOTO 2000 
1090 IF ATTR (x,y) < >63 THEN LET S = S 
+ 1: BEEP .005,10 
2000 


PUNTEGGI E TEMPI 
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complesso, ricorrendo a delle PEEK e P0- 
KE, la cui funzione verrà spiegata oltre. 
Ma, in breve, la linea 990 azzera l’orologio 
dello Spectrum depositando uno 0 in una 
particolare locazione di memoria. La li¬ 
nea 2000 conta il numero di quadri com¬ 
parsi sullo schermo dall’inizio del gioco e 
li divide per 50, ottenendo il tempo (ap¬ 
prossimativo) in secondi. Il ‘miglior tem¬ 
po’ viene inizialmente fissato dalla linea 
10 in 100.000, un valore altissimo, che 
verrà sicuramente battuto da qualsiasi 
giocatore. La linea 2020 confronta questo 
con il tempo ottenuto nel gioco. 


UN ALTRO GIRO? 


Per dare al giocatore la possibilità di 
riprovare, servono queste 
ma prima occorre digitare 
[BREAK], poi [ENTERl : 

2040 PRINT AT 21,2;"PREMERE QUALSIASI 
TASTO PER GIOCARE ANCORA" 

2050 IF INKEY$< >“” THEN GOTO 2050 
2060 IF INKEY$ = “" THEN GOTO 2060 
2070 RESTORE 
2080 GOTO 40 

La RESTORE serve per riutilizzare le frasi 
DATA più volte. 


ALTRI LABIRINTI 


Per creare altri labirinti, con le stesse di¬ 
mensioni di questo, basta cambiare la se¬ 
quenza dei punti e delle p nelle frasi DATA 
(dalla linea 9000 in poi). Per un labirinto 
più grande o più piccolo, occorre ridefini¬ 
re i contorni, agendo sui valori nelle linee 
100 e 120. 


poche linee, 
CAPS SHÌFT] e 



Il programma per gli Acorn è suddiviso in 
tre segmenti. Il primo traccia il labirinto 
sullo schermo, il secondo provoca il movi¬ 
mento del personaggio al suo interno e il 
terzo, infine, provvede a calcolare e a vi¬ 
sualizzare tempi e punteggi. 

Ecco la prima parte del programma. 
Eseguendola, a sinistra sullo schermo 
compare un labirinto verde, il cui percor¬ 
so è costellato da una serie di punti gialli. 

10 MODE 1 

30 VDU 23,224,255,255,255,255,255,255, 
255,255 

40 VDU 19,1,4;0;19,3,5;0; 

50 CLS 
80 VDU 5 
85 □ 

110 FOR riga = 8 TO 23 
120 READ A$ 

130 FOR colonna = 1 TO 19 
140 MOVE colonna*32, riga*32 
150 IF MID$(A$,colonna,1 ) = “A” THEN GCOL 
0,1 PRINT CHRS224 ELSE GCOL 0,2: 

PRINT 

160 NEXT colonna 
170 NEXT riga 
460 □ 

500 DATA AAAAAAAAAAAAAAAAAAA 

510 DATA A.A A A.A 

520 DATA A . AA . AA.AA . AA . A 

530 DATA A . A.A A A.A . A 

540 DATA A. ..A.A.A.A. ..A 

550 DATA A . AAA . AA . A . AA . AAA . A 

560 DATA A. ..A.A. ..A 

570 DATA AAA . . . A . AAA . A . . . AAA 
580 DATA AAA . . . A . AAA . A . . . AAA 


590 DATA A. ..A.A. ..A 

600 DATA A . AAA . AA . A . AA . AAA . A 

610 DATA A. ..A.A.A.A. ..A 

620 DATA A . A.AAA.A . A 

630 DATA A . AA . AA.AA . AA . A 

640 DATA A.AAA.A 

650 DATA AAAAAAAAAAAAAAAAAAA 
La parte principale di questo listato è l’e¬ 
lenco delle frasi DATA: ciascuna linea cor¬ 
risponde a una riga orizzontale del labi¬ 
rinto, definendone la forma (le A rappre¬ 
sentano i muri). Questo metodo di rag¬ 
gruppare le frasi DATA è molto convenien¬ 
te, poiché basta un’occhiata al listato per 
intrawedere già la forma del labirinto e 
apportare, nel caso, delle modifiche. 

Il resto del programma converte ogni A 
in un quadrato, visualizzandolo nella giu¬ 
sta posizione sullo schermo. Sembra faci¬ 
le... ma non mancano i problemi. 


COME FUNZIONA 


Prima di tutto occorre definire i quadrati, 
poiché questi non esistono già pronti. Il 
modo più semplice è di definire un UDG 
mediante una VDU 23 come si vede alla li¬ 
nea 30. Il successivo problema è che, nel 
Modo 1, i colori disponibili sono nero, ros¬ 
so, giallo e bianco, mentre vogliamo un la¬ 
birinto verde. La linea 40 usa una VDU 19 
per ridefinire i colori, in modo da sostitui¬ 
re il blu al rosso (la manipolazione dei co¬ 
lori sarà oggetto di una lezione a parte). 

L’ultima complicazione è la VDU 5, alla 
linea 50. Questa serve per usare il cursore 
grafico ai fini della visualizzazione, per¬ 
mettendo l’impiego delle coordinate gra¬ 
fiche. In altre parole, al posto di PRINT 


Nel far ciò, è bene assicurarsi di avere 
sufficienti elementi nelle frasi DATA, altri¬ 
menti si ottiene un messaggio d’errore. 
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260 IF K$ = “L” AND POINT(X,Y — 32) < > 1 
THEN Y = Y — 32 

270 IF K$ = “P” AND P0INT(X,Y + 32)< >1 
THEN Y = Y + 32 

290 MOVE LX,LY:GCOL0,0:VDU224 
300 GOTO 200 

Adesso, diamo un RUN al programma. Z, 
X, P e L, al solito, muovono l’asterisco. 

Queste linee assomigliano molto alla 
routine per muovere un carattere, già 
presentata alle pagine 11 e 12, ma stavol¬ 
ta il programma deve evitare che l’asteri- 
sco attraversi i muri del labirinto. Questo 
compito spetta alla funzione POINT. 

POINT (X,Y) controlla il colore grafico al 
punto X,Y. (Non è possibile controllare il 
colore dei testi, non esistendo una simile 
funzione nel computer: ecco perché è sta¬ 
to adoperato il cursore grafico. Questo si¬ 
stema permette di visualizzare i blocchi e 
i puntini, associando loro i colori deside¬ 
rati, il cui codice è verificabile). 

Il funzionamento di POINT, in questo 
programma, è il seguente: quando viene 
premuto un tasto, POINT controlla il codi¬ 
ce del colore associato al quadrato verso il 
quale ci si muove. Se questo vale 1 ( = co¬ 
lore blu), allora il movimento è ignorato, 
altrimenti si procede. 

Qui incontriamo di nuovo il numero 32. 
Si ricordi che un salto di 32 corrisponde al 
movimento di una posizione del carattere. 

Per quanto concerne le restanti linee, la 
190 assegna all’asterisco la sua posizione 
iniziale: la 200 vi sposta l’asterisco, prov¬ 
vedendo anche a far sparire (con una VDU 
224) l’eventuale punto che si trovasse in 


TAB (colonna, riga), vengono usate delle 
MOVE colonna*32, riga*32, seguite da delle 
PRINT. La moltiplicazione per 32 serve a 
convertire le colonne e le righe in coordi¬ 
nate grafiche. Nel Modo 1, ad esempio, si 
hanno 40 colonne: moltiplicando 40 x 32, 
si ottiene 1280, la larghezza dello scher¬ 
mo grafico. Ora, il programma può passa¬ 
re al tracciamento del labirinto nella par¬ 
te sinistra dello schermo, tra le righe 8 e 
23 e le colonne da 1 a 19. 

La linea 110 apre un ciclo nel quale la li¬ 
nea 120 legge la frase DATA per ogni riga 
del labirinto, chiamandola A$. La linea 
130 apre un ciclo sulle colonne di ogni ri¬ 
ga e la linea 140 posizione il cursore. La li¬ 
nea 150 fa il resto del lavoro: se il caratte¬ 
re è una A, visualizza un blocco blu, altri¬ 
menti un punto giallo. La funzione MID$ 
serve per scandire gli elementi DATA di 
una posizione alla volta. 


MUOVERSI NEL LABIRINTO 


Fin qui, il programma non ha fatto altro 
che visualizzare il labirinto. Aggiungiamo 
queste poche linee per muovere l’asteri¬ 
sco ‘mangiapunti’: 

60 *FX11,15 
70 *FX12,15 

190 LET X = 10*32: LET Y = 16*32 
200 MOVE X.Y: GCOL 0,0: VDU 224,8: GCOL 
0,3: PRINT "*" 

220 LET LX = X: LET LY = Y 
230 LET K$ = GET$ 

240 IF K$ = “Z” AND P0INT(X-32,Y)< >1 
THEN X = X — 32 

250 IF K$ = “X"AND P0INT(X + 32,Y)< >1 
THEN X = X + 32 


tale posizione. VDU 224 equivale a PRINT 
CHR$ (224), ma il suo uso è più convenien¬ 
te. L’altro numero, ossia 8, fa indietreg¬ 
giare di una posizione il cursore, per vi¬ 
sualizzare correttamente l’asterisco. La 
linea 290 pulisce la posizione precedente. 

Eseguendo il programma, si nota che 
l’asterisco si muove lentamente, esitando 
quando si tratta di mutare direzione. Le 
linee 60 e 70 ovviano a questo inconve¬ 
niente, agendo sulla ripetizione automati¬ 
ca dei tasti. Infatti, *FX11,15 e *FX12,15, 
portano a 15 centesimi di secondo, rispet¬ 
tivamente, la pausa d’attesa e la frequen¬ 
za di autorepeat dei tasti. 

Rimane un proble ma: qua ndo si esce 
dal programma con lESCAPEl . le funzioni 
*FX rimangono attive, ostacolando note¬ 
volmente l’immissione di successivi co¬ 
mandi: LIST, ad esempio, può diventare 
LLIISTT! Il rimedio è semplice, perché ba¬ 
sta premere [BREAKi . poi digitare OLD, e 
nuovamente LIST. Il tasto [BREAK] disattiva 
le funzioni 'FX. 


CRONOMETRARE IL GIOCO 


Il programma non è ancora completo, 
senza un conteggio del tempo impiegato a 
‘mangiare’ i puntini. Ma bastano poche li¬ 
nee per porre rimedio a questa mancanza: 

20 LET tmigliore = 999999 
90 LET punti = 0 
100 RESTORE 
180 TI = 0 

210 IF punti = 154 THEN GOTO 310 
280 IF P0INT(X +12,Y — 20) = 2 THEN punti 
= punti+ 1:S0UND 0,-15,1,1 
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310 LET ti = TI/100 

320 IF tmigliore>ti THEN tmigliore = ti 

330 MOVE X,Y:GCOL0,0:VDU 224 

340 *FX12,0 

350 VDU 4 

360 VDU 23;8202;0;0;0; 

370 FOR ritardo = 1 TO 1000:NEXT 
380 COLOUR3 

390 PRINT TAB(24,10) "TEMPOD = ” 

400 PRINT TAB(24,11);ti;"nsec.” 

410 PRINT TAB(24,13) “MIGLIOR TEMPO" 

420 PRINT TAB(24,14);tmigliore;"nsec.” 

430 PRINT TAB(24,20) "PREMERE RETURN” 
440 PRINT TAB(24,21) “PER GIOCARE 
ANCORA" 

450 IF GET = 13 THEN GOTO 50 ELSE GOTO 
450 

Inizialmente, il ‘miglior tempo’ è fissato 
in 999.999 secondi e il numero di puntini 
viene azzerato. La linea 100 è indispensa¬ 
bile per poter rileggere le frasi DATA a 
ogni nuovo gioco. Senza di essa, otter¬ 
remmo un irritante messaggio OUT OF DA¬ 
TA al secondo giro. 

La linea 280 controlla se ci si muove ‘so¬ 


330 cancella l’asterisco. Le due successi¬ 
ve linee servono per riportare il computer 
alle condizioni normali. La *FX12,0 disatti¬ 
va quanto impostato dalle varie *FX, men¬ 
tre VDU 4 disattiva VDU 5. 

Infine, a destra sullo schermo, vengono 
visualizzati il tempo del gioco e il miglior 
tempo. La linea 450 attende un carattere 
e, se questo corrisponde a RETURN |, il gio¬ 
co ricomincia. Per uscir e dal p rogramma 
occorre battere il tasto I BREAK 1 . 


DISEGNARE IL PROPRIO LABIRINTO 


Il primo passo consiste nel disegnare su 
carta la forma voluta. Poi, usando una A 
per ogni sezione di muro e un punto per le 
altre, si codificano le frasi DATA per il pro¬ 
prio labirinto. 

Se questo ha dimensioni maggiori o mi¬ 
nori di quello illustrato nel nostro esem¬ 
pio, occorre apportare qualche modifica 
anche alle linee di programma 110 e 130, 
dove vengono predisposti i cicli FOR ... 
NEXT che leggono le frasi DATA. 

Quasi sicuramente, il numero di puntini 


1030 FOR M = 0 TO 18 
1040 IF PEEK(1024 + N*32 + M) = 65 THEN 
P0KE(1024 + N*32 + M),175 
1050 NEXT M 
1060 NEXT N 

2000 DATA AAAAAAAAAAAAAAAAAAA 

2010 DATA A.AAA.A 

2020 DATA A . AA . AA.AA . AA . A 

2030 DATA A . A.AAA.A . A 

2040 DATA A. ..A.A.A.A. ..A 

2050 DATA A . AAA . AA . A . AA . AAA . A 

2060 DATA A. ..A.A. ..A 

2070 DATA AAA . . . A . AAA . A . . . AAA 

2080 DATA AAA . . . A . AAA . A . . . AAA 

2090 DATA A. ..A.A. ..A 

2100 DATA A . AAA . AA . A . AA . AAA . A 

2110 DATA A. ..A.A .A . A ... A 

2120 DATA A . A.AAA.A . A 

2130 DATA A . AA . AA.AA . AA . A 

2140 DATA A.AAA.A 

2150 DATA AAAAAAAAAAAAAAAAAAA 
La forma del labirinto dipende dai valori 
contenuti nelle DATA, linee da 2000 a 
2150, dove le A individuano i contorni. 

Prima della lettura delle DATA, la linea 



del nuovo labirinto sarà diverso: di conse¬ 
guenza, cambiare la linea 210. 

Queste modifiche dovrebbero bastare, 
salvo che le dimensioni del labirinto siano 
tali da dover spostare le scritte relative ai 
tempi. In tal caso, occorre procedere per 
tentativi, aggiustando la posizione delle 
varie PRINT, fino al risultato desiderato. 


Il labirinto è così definito: 

30 CLS4 
40 LET P = 297 
1000 FOR N = 0 TO 15 
1010 READ A$ 

1020 PRINT® N*32,A$; 


I 3. Un labirinto semplice versione Electron o BBCB 


pra’ a un puntino. Viene nuovamente im¬ 
piegata la funzione POINT: se questa rileva 
che il colore del quadrato vale 2 ( = giallo, 
nel nostro caso), allora il punteggio au¬ 
menta di 1 e viene emesso un suono ap¬ 
propriato. Se, al contrario, l’asterisco si 
sposta in un quadrato vuoto, la linea vie¬ 
ne ignorata. La figura 3 mostra una fase 
intermedia di un gioco. 

Esauriti tutti i puntini, l’esecuzione, 
grazie alla linea 210, passa alla linea 310, 
che blocca il cronometro e divide il valore 
di TIME per 100, ottenendo i secondi tra¬ 
scorsi. Questo valore viene confrontato 
con il miglior tempo (linea 320), sostituen¬ 
dosi, eventualmente, ad esso. La linea 


30 ripulisce lo schermo e lo colora in ros¬ 
so, il cui codice è 4. La linea 40 assegna al¬ 
l’asterisco la posizione di partenza. 

Le linee da 1000 a 1060 si occupano di 
tracciare il labirinto sullo schermo. A 
ogni iterazione del ciclo FOR ... NEXT, il 
programma legge una nuova frase DATA 
(linea 1010), chiamandola A$; la linea 1020 
ne visualizza il contenuto sullo schermo. 

Ma una sequenza di puntini e di A sullo 
schermo non rappresenta certo un labi¬ 
rinto, cosicché la linea 1040 provvede im-, 
mediatamente a scandire l’area video, so¬ 
stituendo oeni A con un ouadrato blu ( co- 
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Con l’aggiunta di poche linee, possiamo 
misurare il tempo necessario per elimina¬ 
re tutti i puntini: 

20 LET FA = 999999 
50 RESTORE 
60 LET D = 0 
1070 TIMER = 0 

1140 IF PEEK(1024 + P) = 110 THEN PLAY 
“T80B”:LET D=D + 1 
1160 IF 0 = 153 THEN GOTO 1180 
1180 PRINT@ P 
1190 TI = TIMER/50 
1200 PRINT@52,"TEMPO = ”; 

1210 PRI NT@84,TI;"SECD”; 

1220 IF FA > TI THEN FA = TI 
1230 PRINT@212,"MIGLIOR TEMPO"; 

1240 PRINT@244,FA;"SEC.D"; 

1250 PRINT(a;340,“PREMERE"; 

1260 PRINT@372,"ENTER"; 

1270 PRINT@404,“PER”; 

1280 PRINTw 436,“RICOMINCIARE”; 

1290 LET INS = INKEY$:IF IN$ = “” THEN 
GOTO 1290 

1300 IF IN$ = CHR$(13) THEN GOTO 40 
1310 GOTO 1290 

Quando si esegue il programma, alla de¬ 
stra del labirinto appare il tempo, assie¬ 
me al ‘miglior tempo’. Quest’ultimo valo¬ 
re viene inizialmente posto uguale a 
999.999 secondi nella linea 20. La linea 60 
azzera il punteggio, mentre la 1070 azze¬ 
ra il cronometro. 

La linea 1140 esamina la locazione vi¬ 
deo nella quale si trova l’asterisco, per ve¬ 
dere se contiene un puntino. In caso af¬ 


dice 175). Il ciclo nelle linee 1030 e 1050 
assicura che la linea 1040 non trascuri al¬ 
cuna locazione dell’area video, durante il 
lavoro di conversione dei codici. 

Per ottenere il movimento di un asteri¬ 
sco (il nostro personaggio) nel labirinto, si 
aggiungano le seguenti linee. (Nel Tandy 
cambiare i 223 in 247 nelle linee 1100 e 
1110; sostituire 239 con 251 nella linea 
1120 e modificare 247 in 253 nella 1130). 


1080 PRINT @ P 
1090 LET LP = P 

1100 IF PEEK(340) = 223 AND PEEK(1023 
+ P) < >175 THEN LET P = P —1 
1110 IF PEEK(338) = 223 AND PEEK(1025 
+ P)< >175 THEN LET P = P + 1 
1120 IF PEEK(338) = 239 AND PEEK(992 
+ P)< >175 THEN LET P = P-32 
1130 IF PEEK(342) = 247 AND PEEK(1056 
+ P)< >175 THEN LET P = P + 32 
1150 PRINT @ LP,“D”; 

1170 GOTO 1080 


Questa sezione di programma è simile a 
quella presentata a pagina 13, ma esisto¬ 
no delle differenze: l’asterisco, ad esem¬ 
pio, non tenta di attraversare i muri del 
labirinto, mentre la linea 1100 controlla 
due locazioni di memoria: quella che corri¬ 
sponde al tasto (z] e quella che si riferisce 
alla posizione nella quale sta per avventu¬ 
rarsi l’asterisco. Qualora si stia premendo 
il tasto [Z] (codice 223), e, al tempo stesso, 
la locazione video non contenga un qua¬ 
drato blu (codice 175), allora il movimento 
è consentito. 

I tasti di controllo del movimento sono 
identici alla precedente versione ( [z] = si¬ 
nistra, jx = destra, [P| = su, [L] = giù). Si 
provi a muovere l’asterisco nel labirinto, 
in modo da ‘mangiare’ i puntini. 


fermativo, il comando PLAY emette un ap¬ 
pagante suono di avvenuta... digestione! 
Contemporaneamente, viene incrementa¬ 
to il punteggio (variabile D) 

La linea 1160 controlla se i puntini sono 
esauriti, saltando, in tal caso, alla linea 
1180, che cancella l’asterisco. 

Alla linea 1190, TI = TIMER/50 blocca il 
cronometro, convertendo il tutto in se¬ 
condi. Le linee 1200 e 1210 visualizzano i 
tempi sullo schermo. 

La linea 1220 verifica se si è battuto il 
‘miglior tempo’ (FA) con quello appena ot¬ 
tenuto (TI). In caso affermativo, TI diventa 
il nuovo ‘miglior tempo’. Le linee 1230 e 
1240 visualizzano il miglior tempo, prima 
di invitare a un nuov o ‘giro ’, che si ottie¬ 
ne premendo il tasto E NTERl . 

La linea 1290 attende la pressione di un 
tasto e la 1300 verifica che questo corri¬ 
sponda a I ENTERl. Se questo è il caso, l’ese¬ 
cuzione riparte dalla RESTORE alla linea 
50, che consente di rileggere nuovamente 
le frasi DATA. Per uscire dal programma, 
occorre premere il tasto ! BREAK I . 


Conviene adoperare un foglio di carta 
quadrettata per tracciare un nuovo labi¬ 
rinto, ricordandosi che l’area di schermo 
disponibile misura 32 x 16 caratteri. Pro¬ 
gettato il labirinto, basta riportare nelle 
frasi DATA la nuova configurazione. Se le 


IL PROGETTO DI UN LABIRINTO 


QUANTO SIAMO VELOCI? 
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dimensioni sono diverse da quelle dell’e¬ 
sempio, allora devono essere modificate 
le linee 1000 e 1030 (cicli FOR ... NEXT): si 
contano quante righe occupa il nuovo la¬ 
birinto e si sottrae 1. Il risultato va inseri¬ 
to alla fine della linea 1000. Analogamen¬ 
te, si calcola il numero di colonne, aggiu¬ 
stando il valore nella linea 1030. 

Infine, si conta il numero di punti con¬ 
tenuti nel nuovo labirinto: se questo è di¬ 
verso da 153, occorre sostituire questo 
valore, contenuto nella linea 1160. 


[^1 


Il labirinto è ottenuto con delle PRINT di 
caratteri grafici presenti nelle ROM. 

Lanciando il programma, in posizione 
centrata sullo schermo appare il labirinto. 
Il movimento del carattere ir si ottiene coi 
tasti [Z] (sinistra), [Xl (destra), [P] (sù) e [L] 
(giù). Il simbolo ir, al suo passaggio, man¬ 
gia i punti (o monetine), incrementando 
un apposito contatore. 

In questa forma, il programma può non 
essere appassionante, tuttavia mostra 
con chiarezza come definire un labirinto. 
Osservando il listato, si nota come le linee 
da 10 a 40 servono per definire i valori ini¬ 
ziali: PI è la locazione di memoria video 
dalla quale iniziano le monetine; BD è l’in¬ 
dirizzo del contorno, mentre BG è quello 
del colore dello sfondo. A questi indirizzi 
vengono depositati, rispettivamente, i va¬ 
lori corrispondenti al blu e al nero, nelle 
linee 45 e 50. Il colore dei caratteri è fis¬ 
sato nella linea 30: alterando il valore tra 
parentesi (purché con uno dei valori con¬ 
sentiti e riportati nel manuale), si cambia 
colore al labirinto. 

La linea 35 mostra un diverso modo di 
ottenere CLR/HOME | : precedentemente ab¬ 
biamo usato il carattere ‘cuore inverso’, 
per pulire lo schermo e posizionare il cur¬ 
sore in alto a sinistra. Lo stesso risultato 
si ha con CHR$(147), ma conviene definire 
tale valore come variabile ‘stringa’, all’i¬ 



nizio di un programma, come accade nel 
nostro esempio, per non rallentare l’ese¬ 
cuzione. 

La linea 55 predispone la ripetizione au¬ 
tomatica dei tasti (autorepeat), essenziale 
in un gioco di questo genere. 

Poi viene la sequenza che visualizza il 
labirinto, seguita, alla linea 200, da una 
POKE, che colloca il simbolo nella locazio¬ 
ne 1117, l’angolo in alto a sinistra del labi¬ 
rinto. Viene quindi richiesta la pressione 
di un tasto per iniziare (o continuare) il 
gioco. La PRINT alla linea 225 contiene 
due caratteri ‘cursore in alto’ e quaranta 
spazi. Non appena viene premuto un ta¬ 
sto ‘spazio’, questa PRINT provoca l’elimi¬ 
nazione della scritta: un facile e comodo 
metodo di cancellazione. Lo stesso risul¬ 
tato si ha con: 

225 PRINT “□ □ n’-FOR T = 0 TO 39: 

PRINT "□”;:NEXT T 

che, usando un ciclo FOR ... NEXT, è una 
formulazione più elegante. 

Le successive linee da 300 a 320 atten¬ 
dono e controllano la pressione di un ta¬ 
sto, usando una GET e una serie di IF ... 
THEN per modificare P2, cioè la nuova po¬ 
sizione del simbolo ir. La linea 325 con¬ 
trolla se il movimento è consentito, sal¬ 
tando alla 350 in caso negativo. Se, inve¬ 
ce, la locazione contiene una monetina, la 
linea 330 incrementa il conteggio dei pun¬ 
ti, la 335 pulisce la posizione precedente 
PI e la linea 340 attribuisce un nuovo va¬ 
lore alla posizione. Il programma prose¬ 
gue con la visualizzazione del contatore di 
monete e l’esecuzione torna alla linea 
300, salvo quando il contatore di monete 
raggiunge il valore 103 (linea 365). 

Per usare il programma sul Vie 20, oc¬ 
corrono diverse modifiche: omettere le li¬ 
nee 15 e 45; nella linea 10 usare 7735 inve¬ 
ce di 1117; nella linea 20 usare 36879 inve¬ 
ce di 53281. Nella linea 25 usare 22 invece 
di 40. Nella linea 50 usare 14 e non 0. Nel¬ 
le linee da 100 a 170 usare TAB(3) e non 
TAB(12). Modificare il numero di spazi nel¬ 
la linea 210 per una corretta visualizzazio¬ 
ne, aggiungendone altrettanti nella linea 
225. Nella linea 360 cambiare TAB(14) con 
TAB(4). 

10 LET PI =1117: LET P2 = PI 
15 LET BD = 53280 
20 LET BG = 53281 
25 LET LL = 40 
30 LET CC$ = CHR$(5) 


35 LET CSS = CHR$(147) 

40 LET CHS = CHR$(19) 

45 POKE BD,6 
50 POKE BG,0 
55 POKE 650,128 
60 PRINT CS$,CC$ 

100 PRINT TAB(12) 

105 PRINT TAB(12) 

110 PRINT TAB(12) 

115 PRINT TAB(12) 

120 PRINT TAB(12) 

125 PRINT TAB(12) 

130 PRINT TAB(12) 

135 PRINT TAB(12) 

140 PRINT TAB(12) 

145 PRINT TAB(12) 

150 PRINT TAB(12) 

155 PRINT TAB(12) 

160 PRINT TAB(12) 

165 PRINT TAB(12) 

170 PRINT TAB(12) 

200 POKE PI,94 
210 PRINT "HFINE DEL GIOCO. PREMERE 
UNO SPAZIO PER CONTINUARE" 

215 GET K$ 

220 IF K$< >“□” THEN 215 
225 PRINT "□□□□□□□□□□□□□ 
□□□□□□□□□□□□□□□□DO 
□□□□□□□□□□□" 

300 GET A$ 

305 IF A$ = “Z” THEN P2 = PI — 1 
310 IF A$ = “X" THEN P2 = PI +1 
315 IF A$ = “P" THEN P2 = PI — LL 
320 IF A$ = “L" THEN P2 = PI +LL 
325 IF PEEK(P2) < >32 AND PEEK(P2)< 
>46 THEN GOTO 350 
330 IF PEEK(P2) = 46 THEN C0 = C0 + 1 
335 POKE PI ,32 
340 LET PI =P2: POKE PI ,94 
350 PRINT CHS; 

360 PRINT TAB(14);"M0NETE:";C0 

365 IF CO <103 THEN 300 

400 POKE BG,6: CO = 0 

415 FOR T = 1 TO 2000: NEXT T: GOTO 10 


UN PO’ DI COMPETIZIONE 


Adesso aggiungere le seguenti linee: 

205 PRINT TAB(12);“HMIGLIOR 
TEMP0:D”;BT 
230 LET Tl$ = "000000” 

355 PRINT TAB(2);“TEMP0:";TI$; 

400 IF G = 0 THEN BT = VAL(TIS): G = 1 
405 IF VAL(TIS) < BT THEN BT = VAL(TIS) 
410 LET CO = 0: POKE BG,6 


MODIFICHE AL LABIRINTO 


Desiderando cambiare il labirinto, occor¬ 
re adattare il contenuto delle PRINT alle li¬ 
nee da 105 a 165. Si può usare qualsiasi 
simbolo grafico ROM, o anche cambiare 
le dimensioni del labirinto, ma si ram¬ 
menti di correggere il valore CO alla li¬ 
nea 365 col nuovo numero di monetine. 
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METTIAMO ORDINE 
NELL’ARCHIVIO DEGÙ HOBBY 


■ RICERCA DI UN RECORD 

■ VARIAZIONE DI UN RECORD 

■ CANCELLAZIONE DI UN RECORD 

■ _ COPIA SAVE SU STAMPANTE 

■ USO DELL’ARCHIVIO 


Ricavare informazioni di un archivio 
gestito da un computer è facile. Si 
possono anche prevedere modalità di 
ricerca incrociate o parziali, come 
per trovare nome e indirizzo di una 
persona conoscendone solo la città 
di residenza. 

Uno dei maggiori vantaggi dell’archivia¬ 
zione mediante computer, rispetto a quel¬ 
la tradizionale, è la grande elasticità dei 
possibili metodi di ricerca, anche cono¬ 
scendo soltanto una parte dei dati (ad 
esempio, il nome di battesimo o il numero 
telefonico di una persona). 

Il programma per la gestione di un da¬ 
tabase, presentante in questa e nella le¬ 
zione precedente, è, nella sua semplicità, 
pur sempre molto flessibile. 

Di seguito, vengono presentate e spie¬ 
gate le routine di ricerca, di variazione e 
di annullamento, che completano il pro¬ 
gramma. 


LA RICERCA DI UN RECORD 


L’opzione 4, nel menu principale, corri¬ 
sponde alla ricerca di un record e permet¬ 
te di ricercare una particolare informazio¬ 
ne che sia contenuta in uno qualsiasi dei 
campi. 

Premendo il tasto [4j, il programma 
chiede il numero del campo sul quale si in¬ 
tende effettuare la ricerca, dopodiché vie¬ 
ne chiesto cosa cercare in quel particolare 
campo, ad esempio: PIERO, DMU o AMATRI- 
CIANA. 

L’immissione della chiave di ricerca è 
terminata con [RETURN] o [ENTERI 

Ovviamente, la chiave (parola o numero 
che sia) deve corrispondere esattamente 
a quanto a suo tempo immesso nel campo: 
se l’informazione è conservata in caratte¬ 
ri maiuscoli, una ricerca in caratteri mi¬ 
nuscoli dà esito negativo. Anche il nume¬ 
ro degli spazi usati per separare le parole 
deve corrispondere: se durante l’immis¬ 
sione si è digitato per errore uno spazio 
prima o dopo il dato, è probabile che il 
computer non sia in grado di trovare l’in¬ 
formazione cercata. (Questo rappresenta 
uno dei casi più ambigui: lo spazio c’è... 
ma non si vede!) 
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Conviene adottare un metodo (ad esem¬ 
pio, scrivere sempre i dati in maiuscolo), 
sia durante l’immissione che durante la 
ricerca, e poi attenervisi. Ciò evita inutili 
perdite di tempo. 

Qualora il programma non riesca a tro¬ 
vare l’informazione cercata, ci avverte 
con un messaggio e poi torna al menu 
principale; invece, nel caso di ricerca po¬ 
sitiva, i record trovati vengono presentati 
in ordine alfabetico. 

Durante la fase di ricerca, compaiono 
due messaggi. 

Il primo messaggio è: 

A(VANTI) l(NDIETRO) M(ENU) 

Anche qui, la scelta avviene secondo il so¬ 
lito sistema: premendo il tasto r A] il pro¬ 
gramma visualizza il record successivo, 
mentre premendo il tasto Q] si possono 
esaminare, ad uno ad uno, quelli prece¬ 
denti. Il tasto M] riporta al menu princi¬ 
pale. 

Se si preme A 1 quando si è sull’ultimo 
record, non accade nulla, mentre una 
pressione del tasto Q] quando si è sul pri¬ 
mo record, provoca l’emissione di un mes¬ 
saggio del tipo ‘Record non trovato’. 

Esercitarsi in questa operazione di ri¬ 
cerca risulta senz’altro utile a far meglio 
comprendere le prestazioni e i limiti del 
programma. Supponiamo che l’archivio 
sia relativo a un’associazione o a un club e 
che contenga i seguenti campi: cognome, 
nome, incarico, via, città, provincia, 
C.A.P. e numero di telefono. È possibile 
individuare un nominativo anche ricor¬ 
dandosi solamente il suo incarico o la via 
in cui abita! 

Anche qualora esistessero informazioni 
identiche, nello stesso campo, ma in più 
record (ad esempio, più soci si chiamano 
Mario, e questo nome è usato come chiave 
di ricerca), non occorre fare altro che 
scorrere semplicemente i record presen¬ 
tati dal programma, con la certezza di in¬ 
contrare, prima o poi, quello desiderato. 
Un simile metodo di ricerca sarebbe dav¬ 
vero complicato, senza un computer. 


VARIAZIONE DI UN RECORD 


Il secondo messaggio che appare sullo 
schermo è: 

V(ARIAZIONE) C(ANCELLAZIONE) S(TAMPA) 

Volendo modificare il contenuto di un re¬ 
cord, si preme il tasto [A]. Il computer 
chiede il numero del campo da variare e, 
una volta che questo è stato digitato, vie¬ 
ne chiesto di introdurre la nuova informa- 
76 zione. Questa deve essere reinserita per 
intero, anche se si trattasse di variarne 
una sola lettera, e deve essere terminata 


con la pressione di un RETURN 1 o di un 
1ENTERI . 

Il computer colloca automaticamente la 
variazione nel posto giusto. L’operazione 
può essere ripetuta, se occorre. Deside¬ 
rando modificare un altro record, è neces¬ 
sario tornare al menu (tasto [M]), iniziare 
una nuova ricerca (opzione 3), e, infine, 
apportare la modifica. 

In alternativa, si può scegliere l’opzione 
2 (visione record), per posizionarsi sul re¬ 
cord e variarlo. 


ANNULLAMENTO DI UN RECORD 


Anche in questo caso, occorre individuare 
il record (opzione 2 o 3), prima di poterlo 
cancellare. In fondo allo schermo, vengo¬ 
no visualizzate le solite sei possibilità 
A(VANTI), I(NDIETRO), M(ENU), V(ARIAZIONE), 
C(ANCELLAZIONE), e SfTAMPA). Per cancel¬ 
lare, premere il tasto [C]. Il computer chie¬ 
de conferma, onde evitare annullamenti 
accidentali. 

La conferma è data con la pressione del 
tasto [Sj. Il computer cancella il record e 
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presenta quello successivo (quale esso sia 
dipende dall’opzione in corso: se è la 2, il 
record è quello alfabeticamente successi¬ 
vo, mentre se è la 3, è quello successivo 
secondo la chiave di ricerca). 

Se si è cancellato l’ultimo record della 
sequenza, il computer ci avverte che non 
esistono altri record, riportandoci poi al 
menu principale. 


LA COPIA SU STAMPANTE 


L’ultima scelta che rimane da esaminare 
è la S(TAMPA). 

Sul Commodore, sul Dragon, sul Tandy 
o sugli Acorn, la pressione del tasto [s] 
provoca 1’emissione del messaggio ‘STAM¬ 
PANTE 0K?\ 

Se la stampante è pronta all’uso, basta 
premere il tasto [c] (continua). In caso 
contrario, si ha la possibilità di predispor¬ 
re tutto il necessario. 

Se non si possiede una stampante e si 
prosegue, il programma si blocca. In tal ca¬ 
so, l’unica via d’uscita è premere [ ESCAPE 
(sugli Acorn), i RUN/STOP l (sul Commodore) 
o RESET (sul Dragon e sul Tandy), termi¬ 
nando il programma. 

Per rientrare, si digiti: 

GOTO 30 

Sul Commodore, invece, si usi: 

GOTO 100 

Sullo Spectrum il problema non sussiste, 
dato che il computer è in grado di accor¬ 
gersi da solo se c’è una stampante colle¬ 
gata al sistema. 

Digitando qualsiasi altra lettera, diver¬ 
sa dalla [S ci riporta alle sei opzioni stan¬ 
dard, sul fondo dello schermo. 


USO DELL’ARCHIVIO 


Adesso che siamo in possesso di un valido 
sistema di archiviazione, non resta che 
scegliere quali dati inserirvi. Natural¬ 
mente, lo stesso programma può essere 
impiegato per gestire più archivi, tutti 
raccolti in un solo nastro. 

Tuttavia, conviene tenere gli archivi se¬ 
parati, uno per cassetta, facilitandone la 
ricerca. 

In tal caso, il programma può essere 
conservato a parte, su un’apposita casset¬ 
ta (tranne che nel caso dello Spectrum), 
inserendo la cassetta dati, prima di sce¬ 
gliere l’opzione 6. 

Se questa sembra una soluzione ingom¬ 
brante, si pensi a quanto spazio occupe¬ 
rebbe l’archivio, se fosse tenuto in manie¬ 
ra tradizionale! 


TRASCRIZIONE DEL PROGRAMMA 


Di seguito, è riportata la seconda parte 
del programma: più corta della prima, se 
ciò può consolare! 

Si noterà che, rispetto alla prima parte, 
alcuni numeri di linea sono ripetuti: non 
si tratta di un errore, ma semplicemente 
del fatto che nella versione incompleta le 
linee in questione devono adesso essere 
sostituite. Ciò avviene semplicemente di¬ 
gitando le nuove linee: 



4000 FOR N=V TO A: PRINT INVERSE V;AT 
N'2,9;N; INVERSE U; TAB 11 
NS(N): NEXT N 

4010 PRINT ""RICERCA SU QUALE CAMPO 

(1 — □"Al?” 

4020 IF INKEY$ = “ ” THEN GOTO 4020 
4030 LET Y$ = INKEY$: IF CODE Y$<49 OR 
CODE Y$>48 + A THEN GOTO 4030 
4040 BEEP .1,10: LET Z = VAL Y$: PRINT 
'"Cosa cercate nel campod";Z;“d?": DIM 
Z$(V,A(Z)): INPUT LINE Z$(V) 

4044 CLS: LET K = V 

4045 IF A$(K,B(Z) + V TO B(Z + V)) = Z$(V) 
THEN GOTO 4050 

4046 IF K = R OR A$(K,V) = “d” THEN CLS: 
PRINT AT 9,3;"dNESSUN RECORD 
CONCI"; ZS(V),'TAB 10;“NEL CAMPOd"; 
Z:PAUSE 150:RETURN 

4047 LET K = K + V: GOTO 4045 

4050 LET D = V: LET PM=V: LET M0 = V 
4060 IF D>R THEN LET D = PM 
4070 IF D = U THEN LET D = PM 
4080 IF A$(D,V) = "Cr THEN LET D = PM 
4090 IF A$(D,B(Z) +V TO B(Z + V))< 
>Z$(V) THEN LET D = D + M0: GOTO 
4060 

4100 GOSUB 9500 
4110 LET PM = D 

4120 IF 0P = V THEN LET M0 = V: LET D 
= D + M0: GOTO 4060 

4130 IF 0P = 2 THEN LET M0= -V: LET D 
= D + MO: GOTO 4060 
4140 IF 0P = 3 THEN RETURN 
4150 IF 0P = 4 THEN GOSUB 8000 
4160 IF 0P = 5 THEN LET DF = U: LET MD 
= 2: GOSUB 9000: IF DF = V OR A$(V,V) 
= “□" THEN RETURN 
4170 GOTO 4100 

8000 INPUT AT U,U;"VARIARE quale campo 
(1 — □”;(A);”) ?”;J:IF J > A THEN GOTO 
8000 

8010 PRINT FLASH V;AT V + 2*J,12;A$ 
(D,B(J) + V TO B(J + V)): INPUT AT 
U,U,“Immettere nuovo campo", LINE 
A$(D,B(J) + V TO B(J + V)): PRINT AT V 
+ 2*J,12;A$(D,B(J) + V TO B(J-fV)) 

8020 IF D = R THEN LET J = - V: GOTO 
8070 


8030 IF D = V THEN LET J = V: GOTO 8060 
8040 IF A$(D)>A$(D-PV) THEN LET J = V 
8050 IF A$(D)< A$(D —V) THEN LET 
J= -V 

8060 IF A$(D + V,V) = “d" AND J = V THEN 
GOTO 8500 

8070 IF J = V THEN GOTO 8100 
8080 IF A$(D)> =A$(D—V) THEN GOTO 
8500 

8090 LET X$ = A$(D): LET A$(D) = A$(D 
-V): LET A$(D —V) = X$: LET D = D-V: 
GOTO 8020 

8100 IF A$(D)< =A$(D + V) THEN GOTO 
8500 

8110 LET X$ = A$(D): LET A$(D) = A$(D 
+ V): LET A$(D + V) = X$: LET D = D + V: 
GOTO 8020 

8500 BEEP .1,10: PRINT AT U,U;“Record 
n.d";D;“CICId”: RETURN 



Perché, dopo la trascrizione, un 
programma, talvolta piuttosto 
lungo, non funziona? 


Trascrivere lunghi programmi, può 
essere un compito laborioso, forse 
scoraggiante. Per alleggerirlo, si 
può copiare una breve sezione alla 
volta, per poi confrontarla con 
l’originale. Alcuni programmi sono 
già suddivisi in più sezioni o 
sottoprogrammi. Il metodo più 
efficace per verificare una singola 
sezione consiste nel digitare un 
GOTO, seguito dal numero di linea 
iniziale del sottoprogramma. Se ora 
è necessario il valore di qualche 
variabile usata altrove nel 
programma, occorre 
identificarla e attribuirle un valore 
‘di prova’, cosa che può anche 
rivelarsi difficile. Se non si riescono 
a individuare sezioni o subroutine 
nel programma, allora si trascrivano 
20 o 30 linee alla volta, con cura. 

In certi casi, occorre 
passare a metodi di diagnosi 
più efficaci che non la semplice 
rilettura. Ad esempio, individuate 
le variabili più significative, 
si possono inserire delle PRINT 
in vari punti del programma per 
visualizzarne il contenuto. Questo 
metodo consente di rilevare se, / 
all’improvviso, una variabile 
assume un valore insolito 
o totalmente inesatto. 
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Le modifiche per l’Electron 

Occorre apportare qualche 
variazione alla versione del Micro 
BBC, affinché funzioni anche 
sull’Electron. 

Sostituire le seguenti linee: 

5038 Q= —1 

5040 PROCFIND 

5041 IF C< >0 THEN PROCVDU: 
PROCKEY 

5042 UNTIL Q = 1 OR C = 0 

5043 IF Q = 1 THEN 5045 

5044 CLS:PRINTTAB(12,5) 
“NESSUNDRECORD CON"TAB(20 
— LEN(A$)/2,7)A$TAB(15,9) 

"NEL CAMPO”;F:G = INKEY(300) 

5045 ENDPROC 
5047 DEF PROCFIND 
5050 T = 0 

5060 D% = D% + C 

5065 IF D%<1 OR D%>N% — 1 THEN C 
= — C:T=T + 1:D% = D% + C 
5070 IF $B% = $(B% 4- D%*R% + 

TRL (F)) THEN 5100 
5080 IF T<2 THEN 5060 
5090 C = 0 


9000 PRINT AT 19,U;“C0NFERMA DEL 
CANCELLAMENTO (S/N)?": PAUSE U 
9010 IF INKEYS = “ ” THEN GOTO 9010 
9020 IF INKEYS < >“S” THEN PRINT AT 19, 
U;“DDDDDDDDDDDDDDDDD 
□□□□□□□□□□ 

□□□□□": BEEP .1,10: RETURN 
9030 PRINT AT 19,U;;”D 

CANCELLAMENTO IN CORSODDDDD 
□□□□□□□□□□□□□□□□□□" 
9035 LET DD = D 

9040 IF D = R THEN LET DD = DD-V: GOTO 
9060 

9050 IF A$(D + V,V)< >“□" THEN LET 
A$(D) = A$(D + V): LET D = D + V: GOTO 
9040 

9060 LET A$(D) = “ ”: FOR F = V TO 100: 
NEXT F: PRINT AT 19,U;“l=IIIO 
□□□□□□□” 

9070 LET D = DD: IF A$(V,V) = "D" THEN 
LET D = U: RETURN 
9072 IF D = U THEN LET D = V 
9075 IF A$(D,V) = THEN LET D = D-V 
9080 IF MD = V THEN RETURN 
9090 LET K = V 

9100 IF A$(K,B(Z) + V TO B(Z + V)) = Z$ 

(V) THEN GOTO 9130 

9110 IF K = R OR A$(K,V) = 'TZr THEN LET 
DF = V: GOTO 4046 
9120 LET K = K + V: GOTO 9100 
9130 LET DD = D: LET PA = V 
78 9140 IF A$(DD,V) = "D" OR DD = U THEN 
LET PA = 2: LET DD = D: LET MO = MO 
-V 


9150 IF A$(DD,B(Z) + V TO B(Z + V)) = Z$ 
(V) THEN LET D = DD: RETURN 
9160 LET DD = DD + MO: GOTO 9140 



3020 PRINT'Numero del campo (1 — ";A;”)?" 
3035 R = GET —48:IF R<1 OR R>AD 


THEN 3035 

3060 VDU11:PRINT"lmmettere modificaD 
PROCINPUT(A(R)):P.’ 

3065 IF LEN($B%) < 1 THEN 3060 
3070 S(B% + D%*R% + TRL(R)) = $B% 

3080 IF D% = 1 THEN3140 
3090 X = B% + D%*R%:Y = B% + (D% -1 )*R% 
3100 IF $X> =$YDTHEN3130 
3110 FOR T = 1 TOA:$B% = $(X + TRL(T)):$(X 
+ TRL(T)) = $(Y + TRL(T)):$(Y + TRL(T)) 

= $B%:NEXT 

3120 D% = D% —1:IF D% = 1 THEN 3180 
ELSE 3090 

3130 IF D% = N% — 1 THEN 3180 
3140 X = B% + D%*R%:Y = B% + (D% +1 )*R% 
3150 IF $X<=$YDTHEN 3180 
3160 FOR T = 1 TOA:$B% = $(X + TRL(T)):$(X 
+ TRL(T)) = $(Y + TRL(T)):$(Y + TRL(T)) 

= $B%:NEXT 

3170 D% = D% +1 :G0T03130 
3180 D% = D% — C 
4010 VDU11,11 :PRINT 

“Conferma cancellamentoD?DD”; 
STRING$(40,“D") 

4020 Q = GET AND &5F:IF Q< >83 THEN 
ENDPROC 

4030 IF D% = N% — 1 THEN 4080 
4050 FOR T = D%+1 TO N% 

4060 FOR Q = 1 TO A:$(B% + RV(T-1) + 
TRL(Q)) = $(B% + R%*(T) + TRL(Q)):NEXT 
4070 NEXT 

4080 N% = N% —1:D% = D% —C 
5001 IF N% = 1 THEN ENDPROC 
5005 CLS:FOR N = 1 TO A:PRINT ;N,N$(N): 
NEXT 

5007 D% = 1 :C = 1 :Q = 0 

5010 PRINT'“Rlcerca su quale campo (1 

-"Air 

5020 F = GET — 48:IF F<1 OR F>AD 
THEN 5020 

5030 PRINT'“Cosa cercare nel 
campoD”;F;“?D”; 

5035 PROCINPUT(A(F)):A$ = $B%:P.' 

5037 REPEAT 

5040 PROCFIND 

5041 IF C< >0 THEN PROCVDU:PROCKEY:Q 
= 0 

5042 D% = D% + C 

5043 UNTIL Q = 2:Q = 1 

5044 CLS:PRINTTAB(12,5)“Nessun record 
con”TAB(20 - LEN( A$)/2,7)A$T AB( 15,9) 
"nel campoD ";F:G = INKEY(300 

5045 ENDPROC 
5047 DEF PROCFIND 



5050 T = 0:REPEAT 
5070 IF SB% = $(B% 4- D%'R% + TRL 
(F)) THEN T = 2:GOTO 5080 
5073 D% = D% + C 

5075 IF D%>N% — 2 OR D%<2 THEN T = T 
+1 :C = — C:Q = Q +1 
5080 UNTIL T > 1 
5090 IF Q = 2 THEN C = 0 



3000 GOSUB8500 

3010 PRINT » 417,"QUALE CAMPO VARIARE 

(1 TO”;A;")D?"; 

3020 IN$ = INKEY$:IFIN$ = “ " THEN3020 
3030 J = VAL(INS) 

3040 IF J < 1 ORJ > A THEN3020 
3050 PRINTi» 448," ” 

3060 PRINT^ 45 + 32’J," ”:PRINT@417, 
"IMMETTERE NUOVO CAMPO-”: 

LINE INPUTA$(D,J) 

3070 A$(D,J) = LEFT$(A$(D,J),A(J)) 

3080 IFD = R THENJ = — 1 :G0T03130 
3090 IFD = 1 THENJ = 1:G0T03120 













2 APPLICAZIONI 2 



3100 IFA$(D,1)>A$(D + 1,1) THENJ = 1 
3110 IFA$(D,1 ) < A$(D — 1.1 ) THENJ = — 1 
3120 IFA$(D + 1,1) = “” AND J = 1 THEN 
3180 

3130 IFJ = 1 THEN3160 
3140 IFA$(D,1)> = A$(D —1,1) THEN3180 
3150 FORN = 1TOA:X$ = A$(D,N):A$(D,N) = 
A$(D — 1 ,N):A$(D -1 ,N) = X$:NEXT:D = D 
— 1 :GOTO3080 

3160 IFA$(D,1 ) < = A$(D + 1,1) THEN3180 
3170 FORN = 1 TOA:X$ = A$(D,N):A$(D,N) = 
A$(D +1 ,N):A$(D +1 ,N) = X$:NEXT:D = D 
+1 :GOTO3080 

3180 FORF = 1 TO300:NEXT:RETURN 
4000 G = D 
4010 GOSUB8500 

4020 PRINT@449,"CONFERMA DEU=ODD 
□□□□□□□CANCELLAMENTOn 
(S/N)?"; 

4030 IN$ = INKEY$:IFIN$ = “ "THEN4030 
4040 IFINS < >"S” THENRETURN 
4050 IFG = NR THENG = G —1 
4060 CLS7:PRINT@236, 


“STO CANCELLANDO";:SOUND30,1 
4070 IFD = NR THEN4090 
4080 FORN = 1 TOA:A$(D,N) = A$(D +1 ,N): 

NEXT:D = D +1 :GOTO4070 
4090 FORN = 1 TOA:A$(D,N) = “ ":NEXT:NR = 
NR —1:D = G 

4100 FORF = 1 TO400:NEXT:RETURN 
5000 FORN = 1TOA:PRINT(«J33 + 32'N,N,N$ 
(N):NEXT 

5010 PRINT@417,"RICERCA SU QUALE 
CAMPO (1 — ";A;")D?"; 

5020 IN$ = INKEY$:IFIN$ = “ " THEN5020 
5030 IFVAL(INS) < 1 OR VAL(INS) > A THEN 
5020 

5040 SOUND30.1 :Z = VAL(INS): 
PRINT@417,"C0SA CERCARE NEL 
CAMPO'7;"n?” 

5050 LINEINPUTZS 
5060 D = 1:G = 0:CH = 1 
5070 IFD > NR ANDG = 1 THENG = 0:CH = 
-1 ELSEIFD > NR THEN5230 
5080 IFD < 1 ANDG = 1 THENG = 0:CH = 

1 ELSEIFD <1 THEN5230 


5090 IFA$(D,Z)< >Z$ THEND = D + CH: 
GOTO5070 

5100 LD = D:G = 1 :GOSUB8500 
5110 PRINT(a451 "aVANTOnnniNDIETRO 
□□□mENunnvARiAzioNEnnnn 
cANCELLAMENTODnnannsTAMPA”; 
5120 IN$ = INKEY$:IFIN$ = “ ” THEN5120 
5130 IN = INSTR(1,RS$,IN$) 

5140 ON IN GOTO 5160,5160,5170,5180, 
5190,5200,5210 
5150 G0T05120 

5160 CH = 1 :D = D +1 :GOTO5070 
5170 CH = -1 :D = D -1 :GOTO5070 
5180 RETURN 

5190 GOSU B3000:GOTO5090 
5200 GOSU B4000:GOT05090 
5210 G0SUB10000:GOTO5070 
5220 GOTO 5110 
5230 CLS2:PRINT(« 200, 

"NESSUN RECORD C0ND";:PRINT@271 
-LEN(Z$)/2,“n , 7$;"D”; 

5240 PRINTCa 330,“DNEL CAMPO";Z; 

5250 FORG = 1 TO5:SCREEN0,1 : FORF = ITO 
500:NEXT:SCREEN0,0: FORF = 1TO500: 
NEXTF,G:RETURN 


3400 ix$ = au$(ix):gosub14500 

3420 ifaa$ = “n”thengosub3720:goto3100 

3430 u = u — 1 

3440 ifu = 0thenreturn 

3450 ru = r(up):ifup = uthen3470 

3460 fordn = uptou — 1 :r(dn) = r(dn +1 ):next 

3470 ifru = uthen3510 

3480 fordn = 0tou -1 :ifr(dn) < > uthen3500 
3490 r(dn) = ru:forn = 1 tonf:t$(ru,n — 1 ) = t$ 

(u,n — 1 ):next:dn = u 
3500 next 

3510 ifup = uthen3980 
3520 goto3040 

3700 gosubl 1500:printx2$ro$"DDnn 
□□□□□□□□□□□□□ 
□□□□□□□□□□□□a 
□□□□□□□□□□”; 

3705 prinrnnDDNUMERO DEL 
CAMP0D”x3$; 

3710 okS = leftSfl 2345678”,nf):gosub10600 
3712 gosub3720:goto3800 
4000 printcsSxl $gr$“D 

RICERCA SUL CAMPO N.?"ccS"D"cl$; 

4010 ok$ = left$(“12345678",nf):gosub10600 
4030 printchr$(ix + 48):fx = ix 
4040 printxl $gr$"DCOSA CERCARE IN 
QUESTO CAMPO?”cc$ 

4050 y = 8:x = 0:gosub11500:printro$hd$(ix) 
“□:?";:x = len(hd$(ix)) + 4 
4060 z = lx(ix):gosub13000:ifright$(ix$,1 ) = 
"□"thenix = left$(ix$,len(ix$) -1 ) 

4070 ifix$ = “ "thengosubl 0000:goto4050 79 

4080 fx$ = ix$:ff = len(fx$) 

4100 goto3980 













CREIAMO UN 
Omm SIFUTAFUOC© 


La griglia grafica 3x3, creata 
precedentemente, può servire per 
un’ampia gamma di nuove immagini. 
Eccone una: uno spaventoso drago 
che cammina e sputa fuoco! 


Un drago è sempre utile per aggiungere 
un po’ di brivido ai giochi d’avventura. In 
effetti, nessuna storia di maghi e cavalie¬ 
ri sarebbe completa senza un drago. 

Per niente difficile da creare e da muo¬ 
vere, per un drago si può usare la stessa 
procedura adottata per il carro armato e 
per la rana (pagine 8-15). Le routine di 
movimento sono identiche e il meccani¬ 
smo per sputar fuoco è ancora più sempli¬ 
ce di quello per il lancio dei proiettili nel 
carro armato. 



80 Prima di creare un drago, va definita una 
griglia nella memoria del computer. Può 
essere la stessa usata per creare l’imma¬ 


gine del carro armato e della rana. 

Se si è conservato su nastro il program¬ 
ma per la costruzione della griglia per il 
carro armato, basterà adesso rileggerlo 
in memoria e trascrivere il programma 
per la definizione del drago, tra quelli ri¬ 
portati più sotto. Altrimenti, è necessa¬ 
rio, per prima cosa, immettere il pro¬ 
gramma per la griglia (vedere a pagina 8 
per lo Spectrum, a pagina 11 per gli 
Acorn, e a pagina 13 per il Dragon). Se 
neanche questa volta si intende salvare 
questo programma, si possono eliminare 
le linee che contengono l’istruzione SAVE, 
ossia la 50 nel programma per lo Spec¬ 
trum, la 40 in quello per gli Acorn e le li¬ 
nee da 60 a 120 in quello per il Dragon. 


Portata a termine la trascrizione, con o 
senza omissioni, si impartisce un RUN, per 
depositare il codice macchina in memoria. 
Fatto questo, si usa il comando NEW (se¬ 
guito da RETURN o ENTER per ripulire l’a¬ 
rea di memoria riservata al BASIC, evitan¬ 
do, al tempo stesso, che il programma del 
drago venga ‘contaminato’ da linee ‘su¬ 
perstiti’. 

A questo punto, si è pronti per trascrive¬ 
re le linee di programma adatte al proprio 
computer, prestando particolare atten¬ 
zione ai valori contenuti in ciascuna frase 
DATA, prima di premere I RETURN I o fENTERl 
e passare a quella successiva. 

Lanciando il programma, si ottiene sul¬ 
lo schermo l’immagine di un drago. Pos- 


? 












■ 

ADATTARE IN UNA GRIGLIA 

GRAFICA UN NUOVO PERSONAGGIO 

■ 

MOVIMENTO SULLO SCHERMO 

■ 

COME FAR SPUTAR FUOCO 

AL DRAGO 


siamo adoperare i tasti [Z], [X], [F] e [L] per 
muovere il drago, rispettivamente, verso 
sinistra, verso destra, verso l’alto e verso 
il basso. Una pressione della barra spazia¬ 
trice fa sputar fuoco al drago. 



10 FOR n = USR "a" TO USR “t" + 7: READ 
aPOKE n,a NEXT n 

20 LET print = 32400: LET b = 32402: IF 
PEEK 23733 = 255 THEN LET print 
= 65200: LET b = 65202 
90 BORDER 0: PAPER 0: INK 4: CLS: PRINT 
AT 8,15;: RANDOMIZE USR print 
100 LET y = 8: LET x = 15: LET y1=8: LET 
xl =15: LET z = 1 

110 LET a$ = INKEY$: IF aS = “" THEN 


GOTO 110 

115 IF a$ = “ID" THEN GOTO 200 

120 IF a$ = “z” AND x>1 THEN LET xl =x 
-1: LET z = 1 

130 IF a$ = “x" AND x<28 THEN LET xl 
= x + 1: LET z = 2 

140 IF a$ = “p" AND y>0 THEN LET yl =y 
-1 

150 IF a$ = T AND y < 19 THEN LET yl 
= y + 1 

160 PRINT AT y,x;: POKE b,0: RANDOMIZE 
USR print 

170 LET x = x1: LET y = y1 

180 PRINT AT y,x;: POKE b,z: RANDOMIZE 
USR print 

190 GOTO 110 

200 IF z = 2 THEN GOTO 300 


220 PRINT INK 6;AT y,x-1;CHR$ 162 
230 PAUSE 1 

240 PRINT AT y.x-1;“D” 

260 GOTO 110 

300 PRINT INK 6;AT y,x + 3;CHR$ 163 
310 PAUSE 1 

320 PRINT ATy,x + 3;"n” 

330 GOTO 110 

1000 DATA 6,214,249,63,240,0,3,15,96,64, 

192,224,224,192,196,204,0,0,0,0,0,0,0,0 
1010 DATA 63,125,107,245,249,127,127,51, 
244,196,194,255,128,192,224,240,0,0,0,2, 
6,14,6,10 

1020 DATA 55,23,7,3,1,0,4,7,254,255,239, 
239,224,192,128,128,56,240,192,0,0,0,0,0 
1030 DATA 0,0,0,0,0,0,0,0,6,2,3,7,7,3,35,51, 
96,100,159,252,15,0,192,240 


81 


















1040 DATA 0,0,0,64,96,112,96,80,47,33,65, 

255,1,3,7,15,252,190,182,175,159,254, 
254,204 

1050 DATA 28,15,3,0,0,0,0,0,127,255,247, 
247,7,3,1,1,236,232,224,192,128,0,32,224 
1060 DATA 8,68,50,139,50,68,8,0,16,34,76, 
145,76,34,16,0 



Sul Tandy, occorre sostituire 239 con 251 
nella linea 300, sostituire 247 con 253 nella 
linea 310 e cambiare 223, nelle linee 320 e 
330, con 247: 


20 PCLEAR5 
30 CLEAR200,32000 
40 FORI = 32300 TO 32587 
50 READ N 
60 POKE l,N 
70 NEXT 

80 DIMA(2),B(2),C{2) 


90 PM0DE4.1 
100 PCLS 

110 FORI = 1536 TO 1760 STEP32 
120 READ N 
130 POKEI.N 
140 NEXT 

150 GET(0,0) — (7,7),A 

160 FORI = 1536 TO 1760 STEP32 

170 READ N 

180 POKE l,N 

190 NEXT 

200 GET(0,0) — (7,7),B 

210 PCLS 

220 SCREEN1.0 

230 T = 1 

240 DP = 3500 

250 POKE32700,INT(DP/256) 

260 POKE 32701 ,DP — 256*INT(DP/256) 
270 POKE32250.T + DT*2 
280 EXEC32000 
290 LP = DP 


300 IFPEEK(338) = 239 THENDP = DP-32: 
GOTO360 

310 IFPEEK(342) = 247 THENDP = DP + 32: 
GOTO360 

320 IFPEEK(340) = 223 THENDP = DP —1:T 
= T +1 :DT = 0:GOTO360 
330 IFPEEK(338) = 223 THENDP = 0P + 1:T 
= T +1 :DT = 0:GOTO360 
340 IFINKEY$ = “D" AND T = 2 GOSUB410 
350 GOTO300 

360 IDP <1536 OR DP>6941 THENDP = LP 

370 IFT > 2 THENT = 1 

380 POKE32250.0 

390 EXEC3200 

400 GOTO250 

410 IF DT = GOTO470 

420 YP = INT((DP — 1536)/32) 

430 XP = 8*(DP -1533 - YP*32) 

440 IFXP > 255 THEN530 

450 PUT(XP.YP) — (XP + 7,YP + 7),A 

460 GOTO510 

470 YP = INT((DP — 1536)/32) 

480 XP = 8*(DP -1537 - YP*32) 

490 IFXP < 0 THEN530 

500 PUT(XP.YP) — (XP + 7,YP + 7),B 

510 FORI = 1 TO200:NEXT 

520 PUT(XP,YP) — (XP + 7,YP + 7),C 

530 RETURN 

540 DATA 0,0,0,0,0,0,0,0,6,2,3,7,7,3,35,51,96, 
107,159,252,15,0,192,240 
550 DATA 0,0,0,0,64,96,112,96,47,33,65,255, 

3.7.15.31.248.188.182.175.159.255.254, 
254. 

560 DATA 80,28,15,7,1,0,0,0,63,255,255,255, 
255,15,2,3,252,248,252,252,248,48,82,222 
570 DATA 0,0,0,0,0,0,0,0,0,6,2,3,7,7,3,33,0,96, 
107,159,252,15,192,240 
580 DATA 0,0,0,64,96,112,96,80,49,47,33,47, 

49.99.7.15.252.190.182.175.159.254.254, 
156 



1. Sul Dragon (e Tandy), l’immagine 
è ottenuta con un UDG standard 


2. La versione Commodore impiega 
gli sprite a disposizione 






























































































































































































































































4 CODICE MACCHINA 4 


590 DATA 28,15,3,0,0,0,0,0,127,255,239,239, 

15,6,2,3,220,216,192,128,0,0,64,192 
600 DATA 6,214,249,63,240,0,3,15,96,64,192, 
224,224,192,196,204,0,0,0,0,0,0,0,0, 

610 DATA 31,61,109,117,249,255,127,127, 
244,196,194,255,192,224,240,248,0,0,0, 
0,2,6,14,6 

620 DATA 63,31,63,63,31,12,74,123,252,255, 
255,255,255,240,64,192,10,56,240,224, 
128,0,0,0 

630 DATA 0,6,214,249,63,240,3,15,0,96,64, 

192,224,224,192,132,0,0,0,0,0,0,0,0 
640 DATA 63,125,109,245,249,127,127,57, 

140,244,132,244,140,198,224,240,0,0,0,2, 
6,14,6,10 

650 DATA 59,27,3,1,0,0,2,3,254,255,247,247, 
240,96,64,192,56,240,192,0,0,0,0,0 
660 DATA 0,16,34,76,145,76,34,16 
670 DATA 0,8,68,50,137,50,68,8 



10 M0DE1 



3. Ecco il drago costruito con gli UDG dello Spectrum e degli Acorn 


20 VDU23;8202;0;0;0; 

30 FOR T = 224 TO 243:VDU23,T 
40 FOR P = 1 TO 8 
50 READ A 
60 VDUA:NEXT 

70 NEXT:VDU 19,3,2,0,0,0,:CALL&D00 
80 X = 0:Y = 0:X2 = 0:Y2 = 0:Z = 1 
90 A$ = GET$ 

100 IF A$ = "Z” AND X>0 THEN X2 = 

X—1: Z = 1 

110 IF A$ = “X" AND X<37 THEN X2 = 

X + 1: Z = 2 

120 IFA$ = “L” AND Y<29 THEN Y2 = 

Y + 1 

130 IF A$ = "P" AND Y>0 THEN Y2 = 

Y —1 

140 IF A$ = THEN 200 

150 VDU31 ,X,Y:X% = 0:CALL &D00 

160 X = X2:Y = Y2 

170 VDU31.X.Y 

180 X% = Z:CALL &D00 

190 GOTO 90 

200 IF Z = 2 THEN 240 

210 VDU31,X —1,Y,242,8 

220 A$ = INKEYS(5):VDU32 

230 GOTO 90 

240 VDU31,X + 3,Y,243,8 

250 A$ = INKEY$(5):VDU32 

260 GOTO 90 

270 DATA 6,214,249,63,240,0,3,15,96,64,192, 
224,224,192,196,204,0,0,0,0,0,0,0,0 
280 DATA 63,125,109,245,249,127,127,51, 
244,196,194,255,128,192,224,240,0,0,0,2, 
6,14,6,10 

290 DATA 55,23,7,3,1,0,4,7,254,255,239,239, 
224,192,128,128,56,240,192,0,0,0,0,0 
300 DATA 0,0,0,0,0,0,0,0,6,2,3,7,7,3,35,51,96, 
107,159,252,15,0,192,240 


310 DATA 0,0,0,64,96,112,96,80,47,33,65, 
255,1,3,7,15,252,190,182,175,159,254, 
254,204 

320 DATA 28,15,3,0,0,0,0,0,127,255,247,247, 
7,3,1,1,236,232,224,192,128,0,32,224 
330 DATA 8,68,50,139,50,68,8,0,16,34,76, 
145,76,34,16,0 


L’uso della grafica definita dall’utente 
(UDG), sul Commodore 64, differisce leg¬ 
germente da quello degli sprite (o griglie 
grafiche) già esistenti nella memoria del¬ 
l’apparecchio. Di conseguenza, non è ne¬ 
cessario lanciare un programma per la co¬ 
struzione preliminare di una griglia, pri¬ 
ma di trascrivere il programma del dra¬ 
go, riportato sotto; basta immetterlo e 
dargli un RUN: 

10 SC = 53248:X = 150:Y = 157:ZZ = + 45: 
POKE 650,255:PRINT “□":POKE53281,0: 
POKE SC + 39,5 

20 FOR 1 = 16000 TO 16254:READ A:P0KE I, 
A:NEXT I 

30 POKE 2040,250:POKE SC +29,255: 

POKE SC + 23,255:P0KE 2041,252 
40 GET A$:P0KE SC + 21,253:IF A$ = 

THEN POKE SC + 2,X + ZZ:P0KE SC 
+ 3,Y:P0KESC + 21,255 
50 IF A$ = “Z" AND X>60 THEN X = X-2: 
POKE 2040,251 :P0KE 2041,253:ZZ= - 
45 

60 IF A$ = “X" AND X < 200 THEN X = X + 

2:POKE 2040,250:POKE 2041,252:ZZ = 


+ 45 

70 IF A$ = "P" AND Y>70 THEN Y = Y-2 
80 IF A$ = “L" AND Y<200 THEN Y = Y 
+ 2 

90 POKE SC,X:P0KE SC + 1.Y 

100 IF A$ = THEN POKE SC + 2.X + ZZ: 

POKE SC + 3,Y:P0KE SC +- 21,255 
110 IF A$ = ’TZI’’ THEN POKESC + 40.RND 
( 1)*8 

120 GOTO 40 

130 DATA0,6,192,0,2,192,0,3,241,0,3,159,0, 
35,252,0,59,15,0,43,129,0,39,192 
140 DATAI ,227,224,1,1,240,60,241,120,36, 

31,124,60,31,126,6,63,142,3,127,254 
150 DATAI ,255,254,0,255,252,0,127,248,0, 
12,48,0,4,164,0,7,188,0 
160 DATA3,96,0,3,64,0,143,192,0,249,192,0, 
63,196,0,240,220,0,129,212,0,3,228,0 
170 DATA7.199,128,15,128,128,30,143,60,62, 
248,36,126,248,60,112,252,96,127 
180 DATA254.192,127,255,128,63,255,0,31, 
254,0,12,48,0,37,32,0,61,224,0,0 
190 DATA0,0,0,32,0,0,80,0,0,32,0,0,15,0,0,32, 
0,0,80,0,0,32.0,0,0.0,0,0.0,0.0.0 
200 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

210 DATA0,0,0,0,0,4,0,0,10,0,0,4,0,0,240,0,0, 
4,0,0,10,0,0,4,0,0,0,0,0,0,0 
220 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 


























































































































































5 PROGRAMMAZIONE BASIC 5 




IPAINT 


Un paio di semplici comandi e un 
po’ di fantasia: ecco tutto ciò che 
serve per dipingere sullo schermo 
del computer. Vediamo da dove si 
comincia 



Collegando un televisore o un monitor al 
computer, possiamo disporre di una tela 
sulla quale disegnare e dipingere, otte¬ 
nendo, con un po’ di pazienza e attenzio¬ 
ne, anche immagini di grande effetto. 

La grafica computerizzata ha fatto pas¬ 
si da gigante in questi ultimi anni, trovan¬ 
do applicazione in tutti i campi. Grafici e 
diagrammi sono l’esempio più noto, ma 
anche molte immagini e scritte pubblici¬ 
tarie, nonché alcuni film, sono prodotti 
usando il computer. Certo, gli apparecchi 
utilizzati in tali applicazioni sono di di¬ 
mensioni molto maggiori dei normali ho- 


me computer. Tuttavia, anche questi ulti¬ 
mi possono produrre cose strabilianti... 

La maggior parte degli attuali home 
computer sono dotati di comandi del tipo 
PLOT, DRAW, PAINT, INK e simili. Questi 
permettono di tracciare linee, di colorarle 
o riempire di colore intere zone dello 
schermo. Nel funzionamento grafico, lo 
schermo viene suddiviso in minuscole uni¬ 
tà, chiamate ‘pixel’, che possono venir il¬ 
luminate, colorate o spente. In alcuni 
computer si può scegliere tra un’alta riso¬ 
luzione, in cui i pixel sono piccoli e le linee 
molto sottili, o una bassa risoluzione, in 


cui vale l’opposto. In genere, più alta è la 
risoluzione, minore è la scelta dei colori. 

Dunque, il tracciamento di una linea si 
ottiene facendo illuminare una serie di pi¬ 
xel. Dopo qualche esperimento con sem¬ 
plici disegni, ognuno scopre in sé l’artista. 

Lo ZX81 ha una grafica piuttosto limi¬ 
tata, perciò i programmi presentati per 
questo apparecchio esplorano l’unico co¬ 
mando disponibile, il PLOT. Nemmeno i 
Commodore hanno comandi BASIC per la 
gestione della grafica ad alta risoluzione, 
tuttavia esistono eccellenti programmi, 
su cartuccia, che aggiungono tali funzioni. 
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■ 

USO DEI COMANDI 

■ 

IL COMANDO FLASH DELLO 


DEL BASIC 


SPECTRUM RAVVIVA 1 PROGRAMMI 

■ 

COME DISEGNARE QUADRATI, 
TRIANGOLI E CERCHI 

■ 

IL SIMON’S BASIC E LA GRAFICA 

DEL COMMODORE 64 

■ 

COLORI E SFUMATURE 

■ 

1 VARI MODI GRAFICI DEGLI ACORN 



Lo Spectrum ha una risoluzione di 256 pi¬ 
xel in larghezza e di 176 pixel in altezza. 
Ognuno di questi è numerato secondo un 
criterio che, a prima vista, può sembrare 
strano. Chi ha confidenza con le istruzioni 
PRINT AT, sa che: 

PRINT AT 10, 15.... 

serve per visualizzare quanto segue l’i¬ 
struzione nella 10ma riga dall’alto e nella 
15ma colonna da sinistra. 

Al contrario, nel comando PLOT, riferito 
a singoli pixel, il primo numero indica la 
distanza da sinistra e il secondo la distan¬ 
za dal basso dello schermo: 

PLOT 10, 15 

serve, infatti, per illuminare un punto 10 
pixel da sinistra e 15 righe dal basso (si 
provi il comando: si vedrà un puntino nel¬ 
l’angolo in basso a sinistra). 

Le posizioni orizzontali sono numerate 
da 0 a 255 e quelle verticali da 0 a 175. A 
titolo di esempio, è utile provare, una alla 
volta, le seguenti linee: 

PLOT 0, 0 
PLOT 0, 175 
PLOT 255, 0 ‘ 

PLOT 255, 175 

I quattro punti appena illuminati delimi¬ 
tano l’area utilizzabile per un disegno. La 
zona esterna costituisce la ‘cornice’ (SOR¬ 
DE R - vedere più sotto). Il comando PLOT si 
può usare con qualsiasi colore. 


TRACCIAR LINEE 


Il comando DRAW, sullo Spectrum, dise¬ 
gna linee, purché se ne definiscano il pun¬ 
to di partenza, la lunghezza e la direzione. 

Il comando PLOT può essere usato per 
definire il punto iniziale. Si provino le se¬ 
guenti linee, ma senza ripulire lo schermo 
tra l’una e l’altra: 

PLOT 100, 75 
DRAW 50, 0 

Se non viene indicata una nuova posizio¬ 
ne, con PLOT, il computer prosegue dalla 
posizione in cui si trova, ossia, al termine 
della linea appena tracciata. Per dimo¬ 
strare ciò, si usino i seguenti comandi, 


uno alla volta: 

DRAW 0, 50 
DRAW - 50, 0 
DRAW 0.-0 

Come si noterà, si adoperano numeri po¬ 
sitivi per disegnare verso l’alto o verso 
destra e numeri negativi per disegnare 
verso il basso o verso sinistra. Per le linee 
oblique, la regola è identica: prima si sta¬ 
bilisce di quanti punti essa deve muoversi 
a destra (o a sinistra), poi di quanti punti 
verso l’alto (o il basso). Si aggiunga, per 
esempio, questa linea alle precedenti: 

DRAW 50, 50 


ADESSO, UN PROGRAMMA 


Ecco qualcosa di più interessante, ottenu¬ 
to con la DRAW. Per vederne l’effetto, si 
trascriva e si esegua questo programma: 

10 INK 2 
20 PLOT 0, 175 

30 LET t = 255: LET r= —175: LET b = 
-255: LET 1 = 169 

40DRAW t, 0: DRAW 0, r: DRAW b, 0: DRAW 

0, I 

Se non si sono commessi errori (aver con¬ 
fuso la elle minuscola (I) con un 1, ad 
esempio), si ottiene una scatola senza un 
angolo. Aggiungiamo ora queste linee: 

50 LET t = t —6 

60 LET r = r +12: LET b = b + 12: LET 1 = 1 
-12 

70 DRAW t, 0: DRAW 0, r: DRAW b, 0: 

DRAW 0, I 

Questo, provare per credere, disegna 
un’altra scatola interna alla prima. Ag¬ 
giungiamo ora il resto del programma: 

80 LET t = t —6 
90 GOTO 50 

Ciò che accade in mezzo allo schermo può 
forse sorprendere. La ragione è semplice: 
ad ogni iterazione del ciclo (linee 50 e 90) 
viene sottratto 12 a ciscuno dei numeri 
positivi. La variabile t (da top, posizione 
dall’alto) diminuisce da 255 a 243, a 231, 
ecc. Se il numero diventa negativo, la li¬ 
nea sotto il suo controllo cambia direzio¬ 
ne. Un processo analogo accade per le va¬ 
riabili negative quali la b (da bottom, posi- 


zone dal basso). 

Per meglio apprezzare questo proce¬ 
dimento, possiamo inserire una breve 
pausa: 

85 PAUSE 100 

lanciando nuovamente il programma. 


COLORI E SFUMATURE 


Lo Spectrum non dispone di un comando 
COLOUR col quale ottenere facilmente sfu¬ 
mature e colori sullo sfondo. 

E possibile usare una sequenza di linee 
parallele, ma, poiché per ciascuna linea 
occorre una PLOT, il programma diventa 
molto laborioso e ingombrante. 

Un sistema per aggirare l’ostacolo è 
quello di adoperare un ciclo FOR ... NEXT. 

Nel seguente esempio viene tracciata la 
parete di destra della casa in figura 2: 

20 FOR h = 56 TO 100 STEP 3 
30 PLOT 160,h 
40 DRAW 23,12 
50 NEXT h 

60 PLOT 183, 110: DRAW 0, -97: DRAW 
-23, -13: DRAW 0,100 

Il funzionamento è semplice: a ogni itera¬ 
zione del ciclo, il programma disegna una 
linea lunga 23 pixel, scalando da sinistra 
a destra di 12 pixel per volta. A ogni giro, 
inizia 160 pixel da sinistra. 

Ma, a ogni nuovo ‘giro’, la linea 20 som¬ 
ma 3 alla variabile h (da height), che rap¬ 
presenta l’altezza per la posizione di 
PLOT, cosicché ogni linea è di 3 pixel più 
alta della precedente. 

Con le seguenti linee, si ottiene gran 
parte del tetto: 

70 LET r = 100 
80 FOR p = 140 TO 150 
90 PLOT r,p 
100 DRAW 69, -44 
110 LET r = r+2 
120 NEXT p 

Qui troviamo due variabili: per. Gli spo¬ 
stamenti di PLOT, infatti, devono avveni¬ 
re non solo verso l’alto, ma anche verso 
destra. Tra parentesi, si noti l’uso di valo¬ 
ri negativi nella linea 100, per dare al tet¬ 
to un’inclinazione verso il basso. Queste 85 
poche righe completano i contorni della I 
casa: 
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130 PLOT 100,140 
140 DRAW -60, -40 
150 PLOT 46, 103 
160 DRAW 0, -96 
170 DRAW 113, -7 

Adesso possiamo, a nostro piacimento, 
aggiungere una porta, delle finestre e un 
comignolo, usando PLOT e DRAW. Ecco al¬ 
cuni suggerimenti utili: 

• Il triangolo sfalsato, sotto il tetto, ri¬ 
chiede tre variabili: una controlla l’altez¬ 
za di partenza, una la lunghezza e l’ulti¬ 
ma il punto di partenza, a destra, di cia¬ 
scuna linea. 

• Le finestre del piano superiore sono 
scavate nel triangolo. Per far ciò è neces¬ 
sario visualizzare degli spazi, in opportu¬ 
ne posizioni, usando PRINT AT. (È utile il 
metodo‘descritto in Giochi al computer 1). 
Infine, si ripassano i contorni, con i soliti 
PLOT e DRAW. 


DISEGNARE CERCHI 


Sullo Spectrum, c’è un’apposita istruzio¬ 
ne per il disegno dei cerchi: CIRCLE. 

Tutto ciò che occorre ricordare è che i 
primi due valori indicati dopo CIRCLE indi¬ 
viduano il centro del cerchio (che non vie¬ 
ne visualizzato), mentre il terzo stabiliscie 
la lunghezza, in pixel, del raggio. Ecco un 
esempio: 

CIRCLE 127, 87, 50 

Questo comando disegna un cerchio di 
100 pixel diametro (50 di raggio) al centro 
dello schermo. 

Nel programma per disegnare la casa, 
si potrebbe usare un comando simile per 
aprire una finestra circolare sulla porta 
d’ingresso. 

Se CIRCLE viene eseguito da un coman¬ 
do DRAW, la linea che si ottiene inizia dal 
punto nel quale si è concluso il traccia¬ 
mento del cerchio. • 


I COLORI DELLO SPECTRUM 


Lo Spectrum ha una gamma di otto colo¬ 
ri, il cui codice (da 1 a 7) è riportato sui ta¬ 
sti, tramite i quali si possono richiamare. 

Il comando BORDER controlla l’area 
esterna a quella consentita per il disegno, 
dove non si possono usare né DRAW né 
PRINT. Gli altri comandi per i colori hanno 
varie applicazioni. Eccone una: 

10 BORDER 2: PAPER 2: INK 7 

Usando questa linea in un programma, 
tutte le PRINT che seguono provocano una 
visualizzazione in bianco, su sfondo rosso, 
8® finché non si alterino nuovamente i colo- 
I ri (ciò comprende anche i listati, che tal- 
I volta possono risultare illeggibili). 



1. Uno schema ottenuto su Spectrum 



2. Si può anche dare una prospettiva 


Ma se usiamo, invece, una linea del tipo: 

10 PRINT PAPER 2; INK 7; AT 15,10;. 

allora solo la piccola porzione di schermo 
dove appare l’asterisco si colora di rosso. 

Si noti che, nel primo esempio, i coman¬ 
di di colore sono seguiti da un ‘due punti’, 
nel secondo esempio da un punto e virgo¬ 
la. Queste istruzioni sui colori possono ve¬ 
nir incorporate nelle linee che contengono 
PLOT, DRAW e CIRCLE, Si provino le seguen¬ 
ti linee, ripulendo lo schermo ICLSI . tra Lu¬ 
na e l’altra: 


vata con uno 0. Ecco un esempio del suo 
impiego: 

10 PAUSE 0 

20 IF INKEY5 = “ ” THEN GOTO 20 
30 FOR n = 10 TO 23: BEEP .015,n: NEXT n 
40 BORDER 2: PAPER 2: INK 6; FLASH 1 
50 PRINT "NON TOCCARE!!!” 

60 PRINT "QUESTO COMPUTER È 
PERICOLOSO!!!" 

70 PRINT 
80 GOTO 30 

Trascritto il programma, lo si lanci, poi, si 
prema un tasto qualsiasi allontanandosi 
dal computer! 



Lo ZX81 usa un comando PLOT smile a 
quello dello Spectrum. PLOT è seguito da 
due numeri, che controllano la posizione 
del pixel. Ma c’è una differenza: i pixel 
dello ZX81 sono 16 volte più grandi di 
quelli dello Spectrum, cosicché vi sono 
soltanto quattro pixel in ogni spazio-ca¬ 
rattere, contro i 64 dello Spectrum. 

Di conseguenza, non si possono traccia¬ 
re disegni altrettanto ben definiti (in com¬ 
penso, almeno i pixel si vedono bene!). 

Il seguente programma traccia un’im¬ 
magine sullo schermo con PLOT. Poiché 
contiene un ciclo senza fine, che fa ripar¬ 
tire l’esecuzione dalla linea 70, per uscir¬ 
ne occorre premere il tasto BREAK; 

10 LET X = INT (RND*32) 

20 LET Y = INT (RND*24) 

30 PLOT X.Y 
40 PLOT 63-X.Y 
50 PLOT X.43-Y 
60 PLOT 63 —X, 43 —Y 
70 GOTO 10 


PLOT PAPER 1; INK 7; 125, 87 

(Si riesce a vedere il punto?) 

PLOT 125, 87: DRAW INK 2; 50, 50 
PLOT 125, 87: DRAW PAPER 1; INK 7; 50,50 
CIRCLE INK 4; 127, 87, 50 

... e poi: 

CIRCLE PAPER 2; INK 6; 125, 87, 50: DRAW 
PAPER 3; INK 7; 75,0 

L’ultima combinazione può esser usata 
per produrre effetti spettacolari, (per 
quanto, di scarsa utilità pratica). 

Altrettanto spettacolare, e molto ado¬ 
perato nei programmi di gioco, è l’ultimo 
dei comandi Spectrum trattato in questa 
lezione: FLASH. La sua funzione è quella di 
alternare rapidamente i colori definiti da 
INK e PAPER. La funzione FLASH viene atti¬ 
vata facendola seguire da un 1, e disatti¬ 


Lo ZX81 non possiede il comando DRAW, 
ma con un ripetuto uso di PLOT, si possono 
tracciare delle linee. Nel seguente esem¬ 
pio, mediante due cicli FOR ... NEXT, ven¬ 
gono disegnati dei quadrati: 

10 FOR N = 0 TO 20 STEP 2 
20 FOR M = N TO 43-N 
30 PLOT M,N 
40 PLOT M. 43-N 
50 PLOT N,M 
60 PLOT 43 —N,M 
70 NEXT M 
80 NEXT N 

Similmente, si può simulare il comando 
CIRCLE con questa breve subroutine: 

10 FOR N = 0 TO 2* PI STEP .1 
20 PLOT 32 + 20'SIN N, 22 + 20'COS N 
30 NEXT N 
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99 LOW COL 3,5,6 


In questo sottoprogramma, vengono usa¬ 
te le funzioni trigonometriche SIN e COS, 
per calcolare le coordinate dei punti del 
cerchio. Una successiva lezione tratta 
queste funzioni. Per il momento, si posso¬ 
no variare le dimensioni del cerchio, mo¬ 
dificando i due 20 alla linea 20. Il massimo 
valore è 22, altrimenti l’immagine esce 
dallo schermo. Oppure, cambiare la posi¬ 
zione del cerchio. Nell’esempio, il centro è 
situato a 32, 22, come si vede alla linea 20. 
Ricordarsi di rimpicciolire il cerchio se ci 
si avvicina ai margini dello schermo. 



Benché il Commodore 64 abbia varie e, 
potenzialmente, molto sofisticate funzio¬ 
ni per la grafica, non è previsto un modo 
per usare le più spettacolari direttamente 
dal BASIC. In pratica, si può soltanto acce¬ 
dere ai simboli grafici a bassa risoluzione 
e ai caratteri definiti nelle ROM. 

Tutto risulta più facile, se si acquista 
una cartuccia aggiuntiva per il Commodo¬ 
re 64, chiamata il ‘Simon’s BASIC’, che 
contiene un programma atto a facilitare 
l’impiego di tutti gli effetti grafici e sono¬ 
ri disponibili sul Commodore. 

Per la grafica, vengono aggiunte ben 
diciotto parole chiave (o comandi); tutte, 
tranne COLOUR, devono essere però usate 
all’interno dei programmi: non è consen¬ 
tito usarle in modo diretto, come accade, 
per esempio, con i normali LIST o PRINT. 

Inoltre, per eseguire i programmi che 
ricorrono a questi comandi speciali, oc¬ 
corre inserire nel computer la cartuccia. 


PRIMI PASSI COL SIMON'S BASIC 


Accendendo il computer, con la cartuccia 
inserita, lo schermo appare bianco e con 
un bordo blu. 

Le scritte compaiono in maiuscolo e in 
nero, come il messaggio che informa su 
quanta memoria è riservata all’estensio¬ 
ne del BASIC. 

L’unico comando che si può provare in 
modo diretto è: 

COLOUR 5,5 

I valori che seguono COLOUR definiscono il 
colore dello sfondo e quello del bordo del¬ 
lo schermo. Il valore 5, in ambedue i casi, 
corrisponde al colore verde (si consulti il 
manuale per gli altri colori). Le scritte so¬ 
no sempre in nero. HIRES è l’istruzione 
per attivare l’alta risoluzione e i valori 
che ad essa seguono definiscono il colore 
per i disegni e quello per lo sfondo (per 
l’elenco completo dei colori, consultare il 
manuale). Si noti che deve essere usato 
uno spazio separatore nell’istruzione: 


Questa linea predispone il computer al 
tracciamento, in alta risoluzione, di dise¬ 
gni in bianco su nero.. Eseguendo, lo 
schermo diventa immediatamente nero. 

Il primo dei comandi per disegnare è 
REC, la cui funzione è di disegnare rettan¬ 
goli. I valori indicati servono per fissare 
l’origine X,Y del disegno. 

In questa annotazione, 00 indica l’ango¬ 
lo in alto a sinistra sullo schermo. Il valo¬ 
re X aumenta spostandosi orizzontalmen¬ 
te a destra: il valore Y aumenta spostan¬ 
dosi verso il basso. 

La dimensione della griglia varia a se¬ 
conda del modo grafico usato. In alta riso¬ 
luzione, si hanno normalmente 320 pixel 
in larghezza e 200 in altezza. La risoluzio¬ 
ne orizzontale si dimezza usando il modo 
multicolore, a 160 x 200 pixel. L’istruzio¬ 
ne REC, che deve esser preceduta dal co¬ 
mando HIRES, necessità di più valori: 

10 HIRESD 10 
20 REC 10,50,200,50,1 
30 GOTO 10 

In questo esempio, la prima coppia di nu¬ 
meri dopo la REC sono le coordinate X,Y 
(10 pixel da sinistra, 50 dal basso). Il suc¬ 
cessivo valore (200) è la lunghezza oriz¬ 
zontale del rettangolo, seguita dall’altez¬ 
za (50). Tutti i valori sono in pixel. 

Il valore finale, alla linea 20, definisce il 
‘tipo di plot’ del Simon’s BASIC. Qui, un 0 
cancella, mentre un 1 disegna i punti. Il 
valore 2 inverte la condizione di un punto 
da ojf a on o viceversa. 

L’istruzione MULTI è impiegata di sup¬ 
porto a HIRES, per attivare il funziona¬ 
mento multicolore. Si possono seleziona¬ 
re tre colori, che vengono definiti da HI¬ 
RES e selezionati agendo sul valore ‘tipo’ 
di plot’ nelle successive istruzioni di dise¬ 
gno. Ecco un esempio: 

10 HIREStl 1,0 
20 MULTI 7,8,14 
30 REC 0,75,100,50,1 
40 REC 70,50,50,50,2 

50 REC 100,25,50,100,3 
100 GOTO 10 

51 noti come l’ultimo elemento di ogni REC 
(ossia il valore del ‘tipo di plot’) seleziona 
uno dei valori indicati da MULTI. È così 
che viene scelto uno dei colori disponibili, 
tra quelli predefiniti. Si provi a variare 
qualcuno dei valori finali alle linee 30, 40 
e 50. Si ricordi che per selezionare il pri¬ 
mo colore definito da MULTI si usa il valo¬ 
re 1, per il secondo 2, ecc. Un valore del 
‘tipo di plot’ pari a 4, in modo MULTI, pro¬ 
voca l’inversione del tracciamento. I colo¬ 
ri possono esser cambiati usando LOW 
COL, seguito da tre valori, ad esempio: 


L’accesso a questi colori avviene in modo 
analogo a quello usato per REC, rispetto 
all’istruzione MULTI, nell’esempio prece¬ 
dente. Per tornare ai colori definiti in ori¬ 
gine, l’istruzione da usare è HI COL, che 
non richiede l’uso di alcun valore. Me¬ 
diante queste ultime due istruzioni, si 
possono alternare più volte, all’interno 
del medesimo programma, i colori impie¬ 
gati nei disegni ad alta risoluzione. 


I DISEGNI 


Sono disponibili diverse istruzioni ‘di di¬ 
segno’: PLOT, LINE, CIRCLE, ARC, ANGL e 
DRAW, tutte utilizzabili, anche combinate 
tra loro, per produrre effetti grafici sullo 
schermo. Tutte le istruzioni, eccetto 
DRAW, sono seguite da alcuni valori, per 
indicare le coordinate X, Y, necessarie. 
Vediamo per prime PLOT, LINE e CIRCLE. 

PLOT serve per illuminare singoli punti 
(usare un NEW sul computer per rimuove¬ 
re eventuali programmi precedenti): 

10 HIRESD 1,0 

20 FOR X = 0 T0 100 : FOR Y = 0 T0 100 
30 PLOT H,Y,1 

40 FOR D = 1 T0 10: NEXT D 
50 NEXT Y.X 
60 GOTO 10 

11 programma traccia una linea partendo 
dall’angolo superiore sinistro. X e Y sono 
variate all’interno del ciclo FOR ... NEXT, 
che inizia alla linea 20. L’ultimo valore, 
nella 30, è quello del ‘tipo di plot’. 

Il Simon’s BASIC offre un’utile istru¬ 
zione, per introdurre pause nell’esecuzio¬ 
ne: PAUSE. Possiamo sostituire la linea 40 


che crea una sosta di un secondo prima di 
passare a illuminare il punto successivo. 
PAUSE può essere usato anche per ritarda¬ 
re la conclusione del programma: 


trattiene il programma in funzione per 15 
secondi, prima di far apparire il simbolo 
di ‘accettazione comandi’ sullo schermo. 

Forse, l’istruzione più utile al disegno è 
LINE, che serve per tracciare una linea tra 
due punti: basta indicare le coordinate X,Y 
dei due punti e il gioco è fatto! Si imparti¬ 
sca un NEW, e si trascriva il seguente pro¬ 
gramma: 

10 COLOUR 3,0: HIRES 1,0: MULTI 8,3,6 87 

40 LINE 55, 100,40,80,3 ■ 

160 PAUSE 20 


con: 

40 PAUSE 1 


60 PAUSE 15 
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Si ottiene il tracciamento di una linea, nel 
terzo colore fissato da MULTI, che potreb¬ 
be formare parte di un grafico, aggiun¬ 
gendo altre linee. Il comando CIRCLE è se¬ 
guito dalle coordinate X,Y del centro, dal¬ 
la misura del raggio orizzontale e del rag¬ 
gio verticale e, dal valore del ‘tipo di plot’: 

20 CIRCLE 65,100,10,16,2 

Il cerchio è tracciato nel secondo colore 
specificato da MULTI. Si noti che le misure 
dei raggi differiscono: ciò serve a com¬ 
pensare il fatto che lo schermo è rettan¬ 
golare, mentre i ‘passi’ di tracciamento, 
sono costanti. In Modo HIRES, il raggio Y 
(penultimo valore nell’istruzione CIRCLE) 
deve essere 1,4 volte il raggio X (il terzo 
valore indicato nella CIRCLE. Nel Modo 
MULTI, invece, il rapporto tra Y e X deve 
essere di 1,6, per ottenere un’adeguata 
curvatura del cerchio. 


USO DI PAINT 


Il comando PAINT è usato per colorare una 
sagoma, dal contorno chiuso, in una delle 
tinte definite dall’istruzione MULTI. Ecco 
un esempio: 

30 PAINT 65,110,3 

Questa linea colora il cerchio in azzurro, 
colore specificato dalla linea 10, immessa 
precedentemente. L’area da colorare de¬ 
ve essere completamente racchiusa in un 
perimetro, e le coordinate X,Y devono ri¬ 
ferirsi a un punto interno a tale area. Si 
facciano degli esperimenti, variando i va¬ 
lori riportati nella linea 40: si può cambia¬ 
re colorazione agendo sul valore del ‘tipo 
di plot’, ma si notino le conseguenze di 
qualche errore, introdotto deliberatamen¬ 
te, sui valori X ed Y delle coordinate. 

Per arricchire il programma preceden¬ 


te, ottenendo un disegno, si aggiungano 
le seguenti linee: 

50 LINE 40,80,0,120,3 

60 LINE 0,120,40,100,3 

70 LINE 40,100,55,105,3: PAINT50,100,2 

80 LINE 70,100,110,70,3 

90 LINE 110,70,150,90,3 

100 LINE 150,90,110,90,3 

110 LINE 110,90,75,100,3: PAINT90,95,2 

120 LINE 60,110,50,130,3 

130 LINE 70,105,80,130,3 

140 LINE 50,130,80,130,3: PAINT60,120,2 

150 FOR Z = 63T067:LINEZ,110,65,140,1: 

NEXT:PAUSE 10 

L’immagine che si ottiene sullo schermo è 
quella di un uccello in volo. Si presti at¬ 
tenzione, in particolare, a come il valore 
del ‘tipo di plot’ venga più volte modifica¬ 
to durante l’esecuzione del programma. 

In primo luogo, nel programma viene 
stabilito il colore dello schermo, in alta ri¬ 
soluzione, e quello del disegno (linea 10). 
Successivamente, la linea 20 disegna il 
cerchio che rappresenta la testa dell’uc¬ 
cello, che viene poi colorata dalla linea 30. 
Le linee da 40 a 70 provvedono a disegna¬ 
re e colorare l’ala sinistra, le linee da 80 a 
110 l’ala destra. La coda viene creata e 
colorata dalle linee da 120 a 140, mentre il 
becco viene prodotto con un interessante 
impiego del ciclo FOR ... NEXT nella linea 
150. Infine, con una PAUSE, ci concediamo 
il tempo di ammirare il tutto. 



Come nel Commodore 64, anche nel Vie 
20, la versione standard del BASIC è priva 
di istruzioni che diano immediato accesso 
alle capacità grafiche del computer. 

Una volta ancora, la miglior cosa è pro¬ 
curarsi la cartuccia d’espansione Vie Su¬ 
per Expander. Questa viene inserita nel¬ 


l’apposita fessura presente sul Vie 20, 
permettendo di ampliare la gamma dei 
comandi BASIC disponibili a quelli per la 
grafica. Accendendo l’apparecchio con la 
cartuccia inserita, si trascriva: 

10 GRAPHIC 2: SCNCLR 
20 FOR X = 0 TO 100 STEP6:F0R Y = 0 TO 
100 STEP6 
30 POINT 1.X.Y 
40 FOR D = 1 TO 10:NEXT D 
50 NEXT Y,X 
60 GOTO 10 

L’effetto di questo programma equivale a 
quello ottenuto con l’esempio riportato 
per il Commodore 64, nella pagina prece¬ 
dente. Anche sul Vie 20 si può ottenere il 
disegno di un uccello, simile a quello del 
Commodore 64. Ecco il programma: 

10 GRAPHIC 2:C0L0R 0,0,3,6 
20 CIRCLE1,460,400,40,64 
25 CIRCLE1,460,300,30,34 
30 PAINT1,460,440 
40 DRAW1,420,400TO360,320 
50 DRAW1,360,320TO200,480 
60 DRAW1,200,480TO360,400 
70 DRAW1,360,400TO420,420:PAINT1,400, 
400 

80 DRAW1.480.400TO640.280 
90 DRAW1,640,280TO800,360 
100 DRAW1,800,360TO640,360 
110 DRAW1,640,360TO500,400:PAINT1,560, 
350:COLOR0,0,5,5 
120 DRAW1,440,440TO400,520 
130 DRAW1,480,420TO560,520 
140 DRAW1,400,520TO560,520:PAINT1,440, 
480 

150 DRAW1,480,300TO520,300 

160 POKE 36865,39+ RND(1)*2:G0T0 160 

Una volta ancora, per le spiegazioni ci si 
può riferire a quanto detto per il pro¬ 
gramma del Commodore 64, benché il no¬ 
me delle istruzioni sia diverso. 



All’accensione, gli Acorn sono automati¬ 
camente predisposti in Modo text, perciò, 
prima di poter disegnare qualcosa, occor¬ 
re selezionare uno dei modi 5 grafici a di¬ 
sposizione, indicati coi valori: 0, 1, 2, 4 e 
5. Ciascuno di questi dispone di un diffe¬ 
rente numero di colori e di una diversa ri¬ 
soluzione. Per il momento usiamo il Modo 
1: si digita sulla tastiera MODE 1 (termi¬ 
nando con I RETURN 1) . 

Tutti i disegni vengono creati usando il 
cursore grafico, che può essere facilmen¬ 
te spostato sullo schermo grazie al co¬ 
mando MOVE X,Y. Il comando DRAW X,Y 
serve per tracciare linee, mentre con 
PLOT si ottiene una varietà di effetti. 
Digitiamo ora DRAW 640, 512 e premia¬ 


mo [ RETURN . Dovremmo vedere una linea 
che va dal margine inferiore dello scher¬ 
mo fino al centro. Ora si scriva DRAW 
1279,0: ecco un’altra linea, che parte da 
dove termina la precedente e prosegue 
verso l’angolo in basso a destra. Un terzo 
comando completa il triangolo: DRAW 0,0. 

Questo è stato piuttosto facile, ma tutti 
quei numeri generano un po’ di confusio¬ 
ne. In realtà non sono altro che le coordi¬ 
nate X,Y del punto che vogliamo ‘raggiun¬ 
gere’. Lo schermo è suddiviso in tanti pic¬ 
coli quadratini. In senso orizzontale, lun¬ 
go l’asse X, ci sono 1280 quadratini (nu¬ 
merati da 0 a 1279), in senso verticale, 
lungo l’asse Y, ve ne sono 1024 (da 0 a 
1023). Ecco perché il centro dello scher¬ 
mo ha per coordinate 640, 512. 


FACCIAMO UN DISEGNO 


Quando si intende riprodurre un disegno 
sullo schermo, conviene partire da un 
progetto realizzato su carta quadrettata, 
in modo da meglio individuare le coordi¬ 
nate dei vari punti. A questo scopo, il ma¬ 
nuale dell’apparecchio, in appendice, for¬ 
nisce un facsimile della quadrettatura da 
usare. 

Volendo iniziare da un punto diverso da 
quello dell’origine, possiamo usare il co¬ 
mando MOVE X.Y, che serve per muovere il 
cursore, senza lasciar traccie visibili, in 
un.particolare punto dello schermo con 
coordinate X e Y. Usando subito dopo un 
comando DRAW, la linea inizia propria da 
questo nuovo punto. Il miglior insegna¬ 
mento è la pratica: 
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10 MODE 1 
20 MOVE 300,200 
30 DRAW 900,200 

Eseguendo il programma, con un RUN, 
comparirà una linea vicina al margine in¬ 
feriore dello schermo: è la base per il dise¬ 
gno di una casetta, che viene completata 
aggiungendo le seguenti linee: 

40 DRAW 900,600 

50 DRAW 300,600 
60 DRAW 300,200 
70 MOVE 300,600 
80 DRAW 600,900 
90 DRAW 900,600 

51 provi, durante l’immissione, a dare un 
RUN prima di passare alla linea successi¬ 
va: si può così apprezzare la costruzione 
mattone su mattone della casetta. 


USO DEGLI ALTRI MODI 


Fin qui, abbiamo operato esclusivamente 
usando il Modo 1. Si provi a cambiare, 
nella linea 10 del programma precedente, 
l’istruzione MODE 1 in MODE 5. Lanciando 
nuovamente il programma, si noterà che 
adesso i pixel sono di dimensioni molto 
maggiori rispetto ai precedenti, e che le 
linee sono molto più spesse, in particolare 
quelle che formano il tetto della casetta. 
Detto brevemente, il Modo 5 ha una riso¬ 
luzione più bassa del Modo 1. Si provi, an¬ 
cora, a cambiare la linea 10, specificando 
ora MODE 0: stiamo ora usando il modo 
grafico con la massima risoluzione otteni¬ 
bile e il disegno è molto più preciso. Il Mo¬ 
do 2 ha la stessa risoluzione del Modo 5, il 
Modo 1 la stessa del Modo 4. 


DISEGNI A COLORI 


Se non viene specificato un particolare 
colore, i disegni risultano in bianco su 
sfondo nero. Per usare altre combinazio¬ 
ni, si ricorre al comando CGOL 0. Si tra¬ 
scuri, per adesso, il valore 0 qui indicato. 

Adesso riportiamo la linea 10 alla for¬ 
mulazione originale, con MODE 1. Questo 
modo grafico dispone di quattro colori: il 
nero, il rosso, il giallo ed il bianco. Questi 
corrispondono, rispettivamente, ai valori 
0,1,2, e 3. Se impartiamo il comando GCOL 
0,2 e tracciamo una linea, questa sarà di 
colore giallo. Usando GCOL 0,1 la linea ri¬ 
sulterà rossa. Si provi a modificare il pro¬ 
gramma che disegna la casetta, in modo 
da ottenere pareti gialle e il tetto rosso. 
La prima istruzione CGOL va collocata alla 
linea 15, e la seconda alla linea 75. 

Anche la colorazione dello sfondo può 
esser modificata. Il comando è lo stesso, 
GCOL 0, e basta aggiungere 128 al valore 
che indica il colore. Per esempio, GCOL 
0,129, seguito da CLG (che serve a ripulire 



lo schermo grafico) produce uno sfondo 
rosso. 

Il seguente programma, dimostrativo 
riempie lo schermo con rettangoli di di¬ 
mensioni scelte a caso, variando il colore 
dello sfondo (giallo, rosso, bianco e nero): 

10 MODE 1 

15 FOR scatole = 1 TO 30 
20 X = RND(1000) : Y = RND(800) 

30 base = RND(4)*100 : lato = RND(4)*100 
40 GCOL 0,RND(3) 

50 MOVE X,Y 
60 DRAW X + base.Y 
70 DRAW X +base.Y + lato 
80 DRAW X,Y-Flato 
90 DRAW X,Y 
100 NEXT 

La linea 15 inizia un ciclo che disegna 30 
rettangoli. La linea 20 fissa l’angolo di 
partenza di ciascun rettangolo, la 30 sce¬ 
glie le misure della base e dell’altezza, la 
40 seleziona i colori, mentre le linee che 
seguono disegnano ciascun rettangolo. 

Preferiamo una diversa combinazione 
di colori per il disegno, diciamo rettangoli 
bianchi e neri su sfondo rosso? Basta ap¬ 
portare un paio di modifiche al program¬ 
ma; con una, selezioniamo il rosso per lo 
sfondo: 

13 GCOL 0,129: CLG 

con l’altra, cambiamo la linea 40 in: 

40 GCOL 0,(RND(2) —1)*3 

11 che assicura che i colori corrisponderan¬ 
no al nero (0) e al bianco (3). 


USO DEL COMANDO PLOT 


Abbiamo visto come muovere il cursore 
grafico sullo schermo, come tracciare li¬ 
nee e selezionare i colori. Ma l’uso di PLOT 
non è limitato a questo. Per esempio, il 
comando PLOT 69, X,Y serve ad illuminare 
un singolo punto sullo schermo mentre 
possiamo tracciare linee tratteggiate con 
PLOT 21, X,Y, come mostrato nel seguente 
programma: 

10 MODE 1 
20 GCOL 0,130 : CLG 

30 PRINT TAB(0,3)"Per favore firmare"' “sulla 
riga punteggiata" 

35 GCOL 0.0 
40 MOVE 500.190 

50 PLOT 21.1100.190 

60 INPUT TAB(17,25),firma 

Questo breve programma illustra anche 
come si possa mescolare grafica e testo 
sullo stesso schermo. Il testo viene posi¬ 
zionato usando l’istruzione TAB. Una va¬ 
riante molto utile del comando PLOT è 
PLOT 85, che disegna e colora un triango¬ 
lo. Il formante completo è: PLOT 85, X,Y e 
l’effetto che si ottiene è di tracciare un 
triangolo che ha per vertici il punto di 
coordinate X,Y e gli ultimi due punti visi¬ 
tati precedentemente al comando PLOT. 

51 provi quanto segue: 


10 MODE 1 
20 GCOL 0.2 
30 MOVE 200,200 
40 MOVE 1080,200 
50 PLOT 85.640,900 


























5 PROGRAMMAZIONE BASIC 5 



3. Si può iniziare da queste semplici linee 4. Questo missile, sul BBC, è composto da 15 triangoli 


Si potrà apprezzare che non viene usato il 
comando DRAW: ci si limita a visitare (os¬ 
sia posizionarsi) su due punti, (linee 30 e 
40), per poi sfruttare le prestazioni del co¬ 
mando PLOT 85, che disegna e colora per 
noi il triangolo. 

Con un poco di pratica, anche forme di 
una certa complessità si possono scom¬ 
porre in più triangoli, facilitandone la 
rappresentazione sullo schermo del com¬ 
puter. Ad esempio, un rettangolo si può 
costruire con due triangoli, come avviene 
nel programma che segue: 

10 MODE 1 
20 GCOL 0,2 
30 MOVE 300,300 
40 MOVE 300,700 
50 PLOT 85,1000,300 
60 PLOT 85,1000,700 


Infine, ecco un programma che fa buon 
uso del comando per creare triangoli colo¬ 
rati: viene prodotta l’immagine di un mis¬ 
sile a tre stadi, al centro dello schermo, 
usando tre colori e 15 triangoli (figura 4): 

10 MODE 1 
20 MOVE 600,1000 
30 MOVE 520,900 
40 PLOT 85,680,900 
50 GCOL 0,2 
60 PLOT 85,520,800 
70 PLOT 85,680,800 
80 GCOL 0,3 
90 PLOT 85,480,740 
100 PLOT 85,720,740 
110 GCOL 0,2 
120 PLOT 85,480,540 
130 PLOT 85,720,540 
140 GCOL 0,3 


150 PLOT 85, 40.460 
160 PLOT 85,760,460 
170 GCOL 0,2 
180 PLOT 85,440,120 
190 PLOT 85,760,120 
200 GCOL 0,1 
210 MOVE 720,120 
220 MOVE 680,120 
230 PLOT 85,760,20 
240 PLOT 85,640,20 
250 MOVE 520,120 
260 MOVE 480.120 
270 PLOT 85,560,20 
280 PLOT 85,440,20 

Ora ci si eserciti a creare immagini diver¬ 
se, secondo la propria fantasia. Volendo 
una gamma più ampia di colori, si può pas¬ 
sare al Modo 2, che ne offre ben 16. 


E 


All’accensione, il funzionamento dello 
schermo è selezionato automaticamente 
in Modo text. In questa condizione, si pos¬ 
sono far apparire sullo schermo normali 
scritte o simboli grafici speciali, conserva¬ 
ti in ROM e utilizzati da altri programmi. 

Ma se desideriamo produrre disegni più 
elaborati, è necessario ricorrere al funzio¬ 
namento in alta risoluzione, di cui l’appa¬ 
recchio è dotato. Le immagini che si otten¬ 
gono sono di effetto strabiliante, anche se 
non è possibile mescolare grafica e testo 
sullo stesso schermo. 


TRACCIARE UNA LINEA 


Ecco un programmino per disegnare due 
linee, col Modo grafico 3: 

90 

20 PMODE 3,1 
30 PCLS 


40 SCREEN 1,0 

50 LINE (0,191 ) — (255,0),PSET 
60 LINE (0,0)-(255,191 ),PSET 
70 GOTO 70 

Per prima cosa, prima di tracciare le li¬ 
nee, viene selezionato (alla linea 20), il 
modo grafico e la pagina (nella memoria 
del computer) ove depositare le informa¬ 
zioni grafiche. La linea 20 contiene il co¬ 
mando PMODE 3,1, che comunica al com¬ 
puter di usare il Modo grafico 3, e di me¬ 
morizzare il disegno che apparirà sullo 
schermo partendo dalla pagina grafica 1. 

Successivamente, la linea 30 ripulisce lo 
schermo, approntandolo per un nuovo di¬ 
segno in alta risoluzione. Il comando PCLS 
equivale, per la grafica, al normale CLS 
usato nel Modo text. 

Il comando che attiva il funzionamento 
in alta risoluzione è SCREEN. Cosicché, la 
linea 40 contiene SCREEN 1,0. L’insieme di 


colori selezionato dal valore 0, nel coman¬ 
do, comprende i colori: verde, giallo, blu e 
rosso. Specificando un valore 1, si otter¬ 
rebbero i colori nocciola, azzurro, magen¬ 
ta e arancione. 

Questo programma traccia delle linee 
in verde e in rosso (noti come colori de¬ 
fault, ossia selezionati in mancanza di 
esplicite indicazioni). Per usare altre com¬ 
binazioni di colori, si ricorre al comando 
COLOR, che sarà trattato più avanti. 

La prima riga viene tracciata dalla li¬ 
nea 50: i numeri tra parentesi indicano al 
computer la posizione dei due estremi del¬ 
la retta. Lo schermo in alta risoluzione è 
suddiviso in 256 x 192 pixel, numerati da 
0 a 255 in senso orizzontale, e da 0 a 191 
in senso verticale (dall’alto in basso). 

Infine, PSET comunica alla macchina di 
usare il colore di valore massimo tra quel¬ 
li dell’insieme selezionato. Nel nostro ca¬ 
so il colore è il rosso. 
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La linea 60 traccia la seconda linea e 
funziona come la 50, salvo che la posizio¬ 
ne degli estremi è stata variata. 

Per evitare che, una volta eseguito il 
programma, il computer ritorni al funzio¬ 
namento in Modo text (quello per lui nor¬ 
male o default, cancellando completamen¬ 
te il disegno appena realizzato), è neces¬ 
sario utilizzare un ciclo senza fine, che 
blocchi l’esecuzione. Ciò si ottiene alla li¬ 
nea 70, che contiene una GOTO 70. 


DISEGNARE CERCHI 


Questa operazione è veramente semplice, 
sia sul Dragon che sul Tandy, perché esi¬ 
ste nel BASIC un apposito comando CIRCLE. 

Il seguente programma disegna tre cer¬ 
chi, di diverse dimensioni e colori: 

20 PMODE 3,1 
30 PCLS 
40 SCREEN 1,0 
50 CIRCLE (70,95),10,2 
60 CIRCLE (118,95),20,3 
70 CIRCLE (184,95),30,4 
80 GOTO 80 

Sia il modo grafico, che l’insieme di colori 
sono quelli già usati in precedenza. 

Il comando CIRCLE, alle linee 50, 60 e 70 
contiene quattro elementi: il primo e il se¬ 
condo sono la posizione del centro, il terzo 
è la lunghezza del raggio in pixel e il quar¬ 
to corrisponde al colore da usare. 

Il cerchio disegnato dalla linea 50 ha 
centro in (70, 95), un raggio di 10 pixel ed 
è colorato in giallo. Il cerchio della linea 
60 è blu, ha un raggio di 20, con centro in 
(118,95). Il terzo cerchio è rosso, ha un 
raggio di 30 e centro in (184,95). 

Infine, la linea 80 crea un ciclo per evi¬ 
tare che il computer, tornando al coman¬ 
do di funzionamento normale, cancelli il 
disegno ottenuto in alta risoluzione. 


CREAZIONE DI UNA JEEP 


Si trascriva e si esegua il seguente pro¬ 
gramma. Il risultato assomiglia a quanto 
riportato in figura 5, ma senza molti dei 
particolari che vi figurano. 

20 PMODE 3,1 
30 PCLS 
40 SCREEN 1,0 

50 LINE (108,64)-(188,64),PSET 
60 LINE -(188,116),PSET 
70 LINE -(104,116),PSET 
80 LINE -(96,96),PSET 
90 LINE -(70,96),PSET 
110 LINE -(74,96),PSET 
120 LINE -(74,86),PSET 
130 LINE -(114,86),PSET 
140 LINE -(132,104),PSET 
150 LINE -(140,104),PSET 


160 LINE -(140,64),PSET 
170 LINE(76,96)- (76,108),PSET 
180 LINE -(100,108),PSET 
320 GOTO 320 

Come in precedenza, il modo selezionato 
è il 3. La linea 50 inizia il disegno dalla po¬ 
sizione (108, 64), tracciando una linea ros¬ 
sa fino al punto (188, 64). Per continuare il 
disegno dallo stesso punto, basta usare 
una nuova istruzione LINE. 

Le linee da 60 a 160, dunque, non fanno 
altro che definire i punti ‘d’arrivo’ di cia¬ 
scuna nuova linea. 

La linea 170, al contrario, deve traccia¬ 
re una linea partendo da un punto total¬ 
mente nuovo, quindi occorre definire sia 
questo, che il punto ‘di arrivo’. Adesso, 
aggiungiamo i dettagli (migliori contorni, 
un parabrezza, i copertoni, ecc.): 

200 LINE(140,88)-(188,88),PSET 
220 LINE(118,64) -(104,86),PSET 
230 CIRCLE(82,116),14,3 
250 CIRCLE(82,116),6,2 
270 CIRCLEO 68,116),14,3 
290 CIRCLEO 68,116),6,2 

La linea 200 completa la carrozzeria della 
jeep, la linea 220 disegna il parabrezza. 
Nelle linee 230 e 270, CIRCLE viene usata 
per tracciare i copertoni, e nelle linee 250 
e 290 per tracciare la sagoma dei cerchio¬ 
ni delle ruote. 


COLORIAMO I DISEGNI 


È facile verniciare la jeep: basta usare il 
comando PAINT e ci pensa il computer. 


Il comando PAINT riempie una figura, il 
cui perimetro sia chiuso, con il colore sele¬ 
zionato a tal scopo. I valori da specificare 
sono quattro; è facile intuire che i primi 
due sono la posizione del punto dal quale 
iniziare la colorazione, il terzo è il codice 
del colore e il quarto è il colore del bordo o 
contorno, dove l’operazione deve fermar¬ 
si. Si aggiungano le seguenti linee al pro¬ 
gramma precedente, e si vedrà come fun¬ 
ziona, in pratica, il comando PAINT: 

190 PAINT(90,100),2,4 
210 PAINT(120,110),4,4 
240 PAINT(82,116),3,3 
260 PAINT(82,116),2,2 
280 PAINT(168,116)3,3 
300 PAINT(168,116),2,2 
310 PAINT(180,80),2,4 

Si esegua il programma con un RUN, e ve¬ 
dremo le varie parti della jeep colorarsi 
come abbiamo chiesto. 

Non è possibile raggruppare le linee di 
colorazione in fondo al programma per la 
semplice ragione che l’area da colorare 
deve essere contornata da uno stesso co¬ 
lore o dal margine dello schermo, se no il 
computer si confonde e sconfina nella co¬ 
lorazione. I colori disponibili con PMODE 
3,1 sono: verde (1), giallo (2), blu (3) e ros¬ 
so (4). Volendo colorare la jeep diversa- 
mente, basta definire un altro gruppo di 
colori nelle varie linee contenenti l’istru¬ 
zione PAINT. Inoltre, si può arricchire la 
jeep con altri particolari (ad esempio, un 
volante), mediante l’impiego di nuove LI¬ 
NE e CIRCLE. Buon divertimento! 
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'VELIAMO I MEJEU 
PELLE 



g 


Tutte quelle X e Y nei programmi 
possono confondere. Spieghiamo che 
cosa sono e a cosa servono le 
variabili numeriche e alfanumeriche. 
Il loro impiego nei programmi 


Quando si desidera memorizzare un’infor¬ 
mazione nel computer, è necessario comu¬ 
nicargli come identificarla, altrimenti la 
macchina non saprà cosa fare con l’infor¬ 
mazione, né saprà ritrovarla in seguito. 

Il tipo più frequente d’informazione è 
quello numerico: vengono immessi uno o 
più numeri, il cui valore può variare du¬ 
rante l’esecuzione del programma. Uno di 
questi numeri potrebbe rappresentare, ad 
esempio, il punteggio in un gioco oppure 
il numero di posizioni che ha percorso un 
carattere sullo schermo. 

Spesso, comunque, si tratta semplice- 
mente di un numero il cui valore cambia 
durante la ripetizione di una sezione di 
programma. Ecco un esempio molto co¬ 
mune: 

10 LET X = 0 
20 LET X = X + 1 
30 PRINT X; 

40 FOR T = 0 TO 10: NEXT T 
50 GOTO 20 

In questo caso, la linea 50 crea un ciclo 
che fa ripetere le linee da 20 a 50 un nu¬ 
mero infinito di volte: ad ogni passaggio 
dalla linea 20, il numero rappresentato 
con X (al quale, originariamente, era stato 
assegnato il valore 0 nella linea 10) viene 
aumentato di un’unità. 

La X di questo programma viene chia¬ 
mata variabile numerica, poiché contiene 
un numero. 

Un modo per comprendere il funziona¬ 
mento di una variabile numerica è quello 
di immaginarsi una serie di scatole o degli 
scomparti, simili a quelli usati per le chia¬ 
vi negli alberghi. Ciascuna scatola o casel¬ 
la viene identificata con un nome. Nei BA¬ 
SIC più semplici, questo nome è costituito 
da una semplice lettera alfabetica. Quan¬ 
do vogliamo memorizzare un valore, lo 
assegniamo a uno dei contenitori. Per 
esempio: 

LET C = 25 

Questa operazione deposita il valore 25 
nella variabile C. Non tutti i BASIC richiedo¬ 
no l’uso della parola LET (e viene spesso 
omessa, infatti). Finché si è alle prime ar¬ 
mi nella programmazione, comunque, con¬ 
viene usare LET per non confondersi quan¬ 


do si rileggono i listati dei programmi. 

Una volta depositato, il valore può esse¬ 
re utilizzato in altre linee di programma 
per eseguire un calcolo, ad esempio. 
Possiamo adesso scrivere: 

PRINT C*4 
oppure: 

PRINT C/5 

Questi comandi danno come risultato, ri¬ 
spettivamente, 100 e 5. Ma se adesso digi¬ 
tiamo: 

PRINT C 

vedremo che il valore di C è inalterato. 
Per farlo aumentare a 30, per esempio, 
possiamo usare più metodi: 

LET C = 30 

oppure: 

LET C = C + 5 

Quest’ultima forma corrisponde esatta¬ 
mente a quanto usato nel primo program¬ 
mino illustrato. 


I NOMI DELLE VARIABILI 


Le combinazioni di lettere e simboli con¬ 
sentite nei nomi delle variabili numeriche 
variano da una versione all’altra di BASIC. 
Le principali indicazioni in merito sono ri¬ 
portate nella tabella a pagina 95. 

Una cosa certa è che il nome di una va¬ 
riabile non può mai iniziare con un nume¬ 
ro e sarebbe assurdo scrivere: 

LET 7 = 14 

Un’altra restrizione è che non si possono 
usare gli stessi nomi adottati per i coman¬ 
di e le istruzioni BASIC, ad esempio: AND, 
THEN o GOTO. 


VARIABILI IN AZIONE 


Tutti i programmi contengono più varia¬ 
bili, spesso intercollegate da un calcolo o 
un’operazione logica. Ecco, a titolo d’e¬ 
sempio, un breve programma che simula 
il funzionamento di un distributore di 
benzina. 



10 LET litri =0 



20 LET lire = 0 

40 PRINT "Benzina normale (1) o Super (2)?” 
50 INPUT a 

60 if a = 1 THEN LET qta= 1/22.22 
70 if a = 2 THEN LET qta = 1/25 
80 if a<1 OR a>2 THEN GOTO 50 
90 CLS 

100 IF INKEY$ = “n” THEN LET lire = lire 
+ 501ET litri = litri + qta 
110 PRINT AT 10.12;"UTRI:";litri;“nnnn 

□" 

130 PRINT AT 12,12;‘LIRE:n";lire;"nnn" 
150 IF INKEY$ = ”f” THEN CLS:G0T0 10 
200 GOTO 100 



10 LET LITRI = 0 
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■ 

COS’È UNA VARIABILE? 

■ 

COME SI USANO LE VARIABILI 

■ 

LE VARIABILI DI CONTROLLO 

NEI CICLI FOR... NEXT 

■ 

COS’E UNA STRINGA? 


■ 

USO DELLE VARIABILI NUMERICHE 

E DELLE STRINGHE 

■ 

COS’E UNA STRINGA NULLA? 

■ 

USO DELLE STRINGHE NULLE 


NEI PROGRAMMI DI GIOCO 



20 LET LIRE = 0 

40 PRINT "BENZINA NORMALE (1)0 SUPER 
( 2 )?” 

50 INPUT A 

60 IF A = 1 THEN LET QTA = 1/22.22 
70 IF A = 2 THEN LET QTA = 1/25 
80 IF A<1 OR A>2 THEN GOTO 40 
90 CLS 

100 IF INKEY$< >“N" THEN GOTO 110 

102 LET LIRE = LIRE+ 50 

103 LET LITRI = LITRI +QTA 

110 PRINT AT 9,12;“LITRI:”;LITRI;“Dnnn 
□” 

120 PRINT AT 13,10; LIRE:n H ;URE;“nnnn 
□” 

130 IF INKEY$ = “F" THEN RUN 
200 GOTO 100 


0 [E 

10 LET LITRI = 0 

20 LET LIRE = 0 

30 PRINT "□H":POKE650,128 

40 PRINT "BENZINA NORMALE (1) 0 SUPER 

( 2 )?” 

50 INPUT A 

60 IF A = 1 THEN LET QTA = 1/22.22 
70 IF A = 2 THEN LET QTA = 1/25 
80 IF Ad OR A>2 THEN GOTO 40 
90 PRINT 

110 PRINT "SSSSSHMS 

felli II II UU LITRI" 

120 PRINT fi] £]£»&] 

HaUUÈlUUII LIRE 
130 GET K$ 

140 IF K$ = “F" THEN PRINT "Q": GOTO 10 


150 IF K$ = “N” THEN LET LIRE = LIRE + 
50:LET LITRI = LITRI+ QTA 
160 PRINT "gfi]filfilfi]fi)fi]g]fi]fi] 

Il II felli II II LITRI 

170 print "g»SSSHfi]HHH 
H a H HII II II II felli LIRE 
200 GOTO 130 



10 LET litri = 0 
20 LET lire = 0 
25 @% = &90A 
30 CLS: PRINT 

40 PRINT “Benzina Normale (1) o Super (2)?" 
50 INPUT a 

60 if a = 1 THEN LET qta = 1/22.22 


93 
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70 if a = 2 THEN LET qta = 1/25 
80 if a<1 OR a>2 THEN GOTO 50 
90 CLS 

100 PRINT TAB(16,9);"UTRI:" 

110 PRINT TAB(16,12);"LIRE:” 

125 @% = &2020A 
130 K$ = GETS 

140 IF K$ = "F” THEN CLS:GOTO 10 
150 IF K$ = “N" THEN LET lire = lire + 50: 

LET litri = litri + qta 
160 PRINT TAB(16,10); litri 
170 PRINT TAB(16, 13);lire 
200 GOTO 100 

mu 

10 LET LITRI = 0 
20 LET LIRE = 0 
30 CLS:PRINT 

40 PRINT “BENZINA NORMALE (1) 0 SUPER 

( 2 )?” 

50 INPUT A 

60 IF A = 1 THEN LET QTA = 1/22.22 
70 IF A = 2 THEN LET QTA = 1/25 
80 IF A<1 OR A>2 THEN GOTO 40 
90 CLS 

100 PRINT(S 200,“LITRI:” 

110 PRINT® 267,“LIRE 
130 LET K = PEEK(344) 

140 IF K = 251 THEN CLS:GOTO 10 
150 IF K = 247 THEN LET LIRE = LIRE+ 50: 

LET LITRI = LITRI + QTA 
160 PRINT® 206,LITRI 
170 PRINT® 330,LIRE 
200 GOTO 130 

Vale la pena di esaminare attentamente il 
listato di ciascun programma, sia per 
comprendere il funzionamento delle va¬ 
riabili, sia per vedere come sono imposta¬ 
ti gli algoritmi di calcolo nei quali esse 
vengono impiegate. L’utilità di alcune ap¬ 
pare subito evidente. La variabile a, per 
esempio, contiene il numero da noi scelto, 
corrispondente al tipo di benzina richie¬ 
sto. Mentre i valori assegnati alla variabi¬ 
le QTA possono sembrare a tutta prima 
astrusi: in realtà si tratta della quantità di 
benzina corrispondente a 50 lire. 

Appena si preme il tasto U (che stà per 
Inizio), la pompa comincia a erogare ben¬ 
zina del tipo prescelto, comunicando ‘a 
scatti’, sia la quantità che il prezzo totali. 
All’inizio del programma, le variabili LIRE 
e LITRI vengono azzerate e successiva¬ 
mente, finché si tiene premuto il tasto Tj, 
ad esse viene sommato, progressivamen¬ 
te, l’incremento in lire e in litri relativo 
all’erogazione. Ogni iterazione non ripor¬ 
ta l’esecuzione alla linea 10 (che azzere¬ 
rebbe i totali), ma alla 130 (100 sullo Spec- 
trum). Mantenendo in funzione il pro- 
94 gramma per un periodo abbastanza lun- 
I go, può capitare che i valori relativi ai litri 
I erogati contengano svariati decimali. Ciò 



perché non abbiamo specificato quanti ne 
vanno visualizzati. Questo aspetto sarà ri¬ 
preso in lezioni successive. 


VARIABILI DI CONTROLLO 


Le variabili numeriche vengono adopera¬ 
te, oltreché nelle frasi LET, anche nei cicli 
FOR ... NEXT, (vedere alle pagine 16-21). 
In questo caso sono dette variabili di con¬ 
trollo. Su alcuni computer, i nomi consen¬ 
titi per le variabili di controllo differisco¬ 
no da quelli per le variabili numeriche (si 
veda la tabella). Sullo Spectrum, ad esem¬ 
pio, si può scrivere: 

LET punti = 0 
LET massimo = 0 

ma non si può adottare lo stesso criterio 
di chiarezza per quanto riguarda le varia¬ 
bili di controllo. È sbagliato scrivere: 

FOR Tempo = 999999 

perché è consentito usare una sola lettera. 


LE STRINGHE 


Le stringhe, in BASIC, funzionano come 
borse da spesa: vi si possono depositare 
svariate informazioni, per poi manipolar¬ 
le ed elaborarle singolarmente o global¬ 
mente. Le stringhe possono contenere un 
po’ di tutto: lettere, numeri, spazi o sim¬ 
boli grafici. L’unico accorgimento è di 
racchiudere sempre ogni sequenza di ca¬ 
ratteri tra due doppi apici ossia un “ all’i¬ 
nizio e un ” alla fine della sequenza. 


Ecco alcuni esempi: 

"NOME E INDIRIZZO DEL CLIENTE" 
“IMMETTERE LA RISPOSTA" 

“24 gennaio” 

“02-455 755" 

"CAP 00100” 

La stringa che segue è composta da sim¬ 
boli grafici (la si può ottenere direttamen¬ 
te soltanto usando lo Spectrum): 


Il BASIC può misurare la lunghezza di una 
stringa (ossia il numero di caratteri che 
essa contiene). Inoltre, può concatenare 
due stringhe assieme, sezionarle in più 
pezzi o anche estrarre un solo carattere 
da una stringa. In effetti, il contenuto del¬ 
la stringa non interessa al computer: non 
è possibile applicare operazioni aritmeti¬ 
che al contenuto di due stringhe. A prova 
di ciò, si trascriva e si lanci questo pro¬ 
gramma: 




10 PRINT "2 + 2 = 111"; 

20 FOR N = 1 TO 200: NEXT N 
30 PRINT 1 + 2*2 



10 PRINT "2 + 2 = 
20 FOR N = 1 TO 40 
25 NEXT N 
30 PRINT 1+2*2 
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Come si vedrà, il contenuto delle stringhe 
viene visualizzato così come immesso. So¬ 
lo alla linea 20 viene fatto un calcolo e ne 
viene presentato il risultato. La linea 20, 
in effetti, serve solo per dar l’impressione 
che il computer stia pensando alla rispo¬ 
sta. Sull’Acorn, cambiare il valore 200 in 
2000 allunga un poco l’attesa. 

Se si desidera usare una stringa una so¬ 
la volta in un programma, allora quanto 
visto è sufficiente. Ma, desiderando riuti¬ 
lizzarla più volte, si risparmia tempo e fa¬ 
tica (oltre che memoria!) assegnando un 
nome alla stringa, ossia creando una va¬ 
riabile stringa. La lunghezza massima 
del nome varia da un computer all’altro 
(vedere la tabella a lato), ma il nome deve 
essere sempre e comunque seguito dal 
simbolo del dollaro: $. Ecco ad esempio, 
un programma che accetta ordinazioni: 


ìlC'.IEHSBO 


10 LET A$ = “PER FAVORE, INDICA QUANT" 
20 LET B$ = "VUOI” 

30 PRINT A$;"ID HAMBURGER";B$: INPUT H 
40 PRINT A$;“ED PIZZE”;B$: INPUT P 
50 PRINT A$;"ED ARANCIATE”;B$: INPUT A 
60 PRINT "GRAZIE. PAGARE’ ;(H*200 -t- P* 

1500 + A"1200);" “DALLA CASSA.” 



10 LET A$ = "PER FAVORE, INDICA QUANT” 
20 LET B$ = “DV0UI” 

30 PRINT A$;“IDHAMBURGER ;B$; 

35 INPUT H 

40 PRINT A$;"EDPIZZE";B$: 

45 INPUT P 

50 PRINT A$;“EDARANCIATE";B$: 

55 INPUT A 

60 PRINT "GRAZIE. PAGARE";(H*2000 + P* 

1500 -(- A*1200);“DALLA CASSA." 

Non si tratta di un programma molto sofi¬ 
sticato, tuttavia rende abbastanza bene 
l’idea di come l’uso delle stringhe possa 
facilitare la programmazione (salvo, for¬ 
se, nello ZX81). 

Ecco perché i programmi di word pro¬ 
cessing e di contabilità, nei quali scritte 
del tipo ‘Conto del Cliente’, ‘Prezzo unita¬ 
rio’ o ‘imponibile I.V.A.’ ricorrono con 
grande frequenza, usano molto le variabi¬ 
li stringa. 

Queste sono molto utili anche nella pro¬ 
grammazione dei giochi. Infatti, se dob¬ 
biamo definire un ‘muro’ o la forma di un 
drago, ad esempio, può essere molto più 
comodo farlo assegnando alla sequenza di 
caratteri un nome, e usare tale nome nel 
resto del programma. 

Inoltre, una variabile stringa può esse¬ 


Le variabili: cosa si può e cosa non si può usare 

Tipo 

variabile 

egea 

[1 

i'.KHSaU 



Variabile 

numerica 

Lunghezza: nessun 
limite 

Lunghezza massima: 

255 caratteri 

Lunghezza massima: 

255 caratteri, ma 
soltanto i primi due 
sono distinti 


Sullo Spectrum, sono 
consentite maiuscole o 
minuscole, ma il 
computer non fa 
alcuna distinzione tra 
i due modi 

Maiuscole o minuscole 
consentite, ma, nel 
primo caso, non 
devono iniziare con 
parole chiave (ad es.: 

TO come in TOTALE) 

Solo le masciuole sono 
consentite e non 
devono iniziare con 
parole chiave (ad. es. 

TO come in TOTALE) 


Punteggiatura non 
consentita 

Spazi: consentiti ma 
ignorati 

Punteggiatura: solo la 
sottolineatura è 
consentita 

Spazi: non consentiti 

Punteggiatura non 
consentita 

Spazi: consentiti ma 
ignorati 

Variabile 
di controllo 
in cicli 

FOR ... NEXT 

Solo singole lettere 
(ad. es.: A) 

Come per le variabili 
numeriche 

Lettera singola 
oppure lettera singola 
seguita da un 
carattere (ad es. A, A3) 

Variabili 

stringa 

Solo singole lettere 
seguite da $ (ad es.: 

A$) 

Come nelle variabili 
numeriche, ma seguite 
da $ come in 

INDIRIZZOS 

Come per le variabili 
numeriche, ma seguite 
da $ (ad. es.: AD$) 


re spostata a piacimento sullo schermo, 
come dimostra il seguente programma: 



10 LET bS = “□□□□□□□□□□□□□ 

□□□□□□□□□□□□□□□□□□ 

□’’ 

20 LET a$ = b$ +“□□□□BUONA PASQUA 
A TUTTI □□□” + b$ 

30 FOR n = 1 TO 65 


40 PRINT INK 2; AT 8, 0; a$ 

(n TO n + 31) 

50 PRINT INK 2; AT 12, 0; aS (66 —n TO 
97-n) 

60 BEEP .02,n/2 
70 NEXT n 
80 GOTO 30 


4 M0DE4 
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5 VDU23;8202;0;0;0; 

6 VDU19,0,4;0; 

7 VDU19,1,3;0; 

8 CLS 

10 LET B$ = “□□□□□□□□□□□□□ 
□□□□□□□□□□□□□□□□OD 
□□□□□□□□□" 

20 LET A$ = B$ +“BUONA PASQUA A 
TUTTI"+B$ 

30 FOR N = 1 TO 65 

40 PRINT TAB(0,12);MID$(A$,N,40) 

50 PRINT TAB(0,16);MID$(A$,65 — N,40) 

60 SOUND1, — 10,N*12,1 
65 D = INKEY(10) 

70 NEXT N 
80 GOTO 30 



10 let B$="nannannnnDDDn 
□□□□□□□□□□□□□□□□□□ 
□” 

20 LET A$ = B$ +“□□□□BUONA PASQUA 
A TUTTI □□□" + B$ 

30 FOR N N = 1 TO 65 

40 PRINT AT 8, 0; A$ (N TO N + 31) 

50 PRINT AT 12, 0; A$ (66-N TO 97-N) 
70 NEXT N 
80 GOTO 30 


E 


5 CLS 

10 LET B$ = “□□□□□□□□□□□□□ 
□□□□□□□□□□□□□□□□□□ 
□" 

20 LET AS.BS +“□□□BUONA PASQUA 
a TUTTinnn"+B$ 

30 FOR N = 1 TO 65 
40 PRINT@ 160,MID$(AS,N,32) 

50 PRINT@ 320,MID$(A$,66 — N,32) 

60 SOUND N‘3,1: NEXT N 
80 GOTO 30 

KE 

10 PRINT 

15 POKE 54277,33:POKE 54278,255: 

96 POKE 54273 + 23,15:POKE 54276,33 

■ 2 LET B$ = “□□□□□BUONA PASQUA A 
TUTTI □□□□□□□□□□□□□□□ 


□□□□□□□□□□□□□□□□□□ 

□”:B$ = A$ 

40 LET A$ = RIGHT$(A$,61)+LEFT$(A$,1) 

45 print I 

LEFT$(A$,40) 

50 LET B$ = RIGHT$(B$,1) + LEFT$(B$,61) 
55 PRINT “1 1 g g | 1 
H"LEFT$ (B$,40) 

60 LET S = S + 5:IFS > 255THENS = 0 
70 POKE 54273,S 
80 GOTO 40 


sa 

10 PRINT"n“ 

15 POKE 36878,15:S = 127 
20 A$ = “□□□□□BUONA PASQUA A 
TUTTI □□□□□□□□□□□□□□□ 
□□□□□□□□□□□□□□□□□□ 
□”:B$ = A$ 

40 A$ = RIGHT$(A$,61 ) + LEFT$(A$,1 ) 

45 PRINT" m @ S3 M É3 H H H H H 

LEFT$(AS,22) 

50 B$ = RIGHT$(B$,1) + LEFT$(B$,61) 

55 print-□ a a a a a stlefts 

(B$,22) 

60 LET S = S + 5:IF S > 255THENS = 128 
70 POKE 36876,S 
80 GOTO40 

In questo caso, come si rileva dalla linea 
20, si ha una stringa di notevoli dimensio¬ 
ni: tutti gli spazi della linea 10 (20 nei pro¬ 
grammi Commodore), più il messaggio e 
più, inoltre, un’altra sequenza di caratte¬ 
ri. il tutto viene concatenato in una sola 
enorme stringa. Come eseguire questa ed 
altre manipolazioni di stringhe, verrà 
spiegato più avanti nel corso. Se, comun¬ 
que, volessimo nel frattempo modificare 

11 messaggio, ci si assicuri che la sua lun¬ 
ghezza corrisponda esattamente, altri¬ 
menti occorrerà modificare i valori conte¬ 
nuti nelle linee 40 e 55. 

Un uso ancora più comune delle variabi¬ 
li stringa è durante l’immissione di infor¬ 
mazioni il cui contenuto varia di volta in 
volta. Ad esempio: 





10 PRINT "COME TI CHIAMI" 
20 INPUT NS 
30 PRINT "CIAO.n"; N$ 


In questo programma, la linea 10 visualiz¬ 
za (con una PRINT) il messaggio COME TI 
CHIAMI, seguito da un punto interrogati¬ 
vo. Il computer attende, quindi, che l’ope¬ 
ratore immetta un nome al quale viene 
assegnata l’etichetta N$. Alla linea 30 vie¬ 
ne visualizzato un ‘CIAO’, seguito dal con¬ 
tenuto di N$, immesso nella linea prece¬ 
dente. Sullo schermo appare dunque: 



CIAO, GUIDO (o MARCO o GINO...) 

o ogni cosa immessa alla linea 20. 

Ai messaggi COME TI CHIAMI? e CIAO non 
viene assegnato alcun nome (come A$, C0- 
SA$, ecc.) poiché, essendo impiegati un so¬ 
la volta nel programma, non è necessario 
che il computer se li rammenti. 

Al contrario, è necessario attribuire un 
nome al dato che si immette (in questo ca¬ 
so il proprio nome), poiché può esser usa¬ 
to un nome diverso a ogni nuova esecuzio¬ 
ne del programma. Inoltre, deve essere 
memorizzato (alla linea 20) per poi essere 
richiamato e visualizzato alla 30. 

Per inciso, una versione più compatta 
del programmino dell’ultimo esempio è: 

10 INPUT "COME TI CHIAMI";N$ 

20 PRINT “CIA0,n”;N$ 

(Sugli Acorn cambiare ; in , alla linea 10). 


LE STRINGHE NULLE 


Ancora un altro uso delle stringhe si è in¬ 
contrato nella sezione Giochi al compu¬ 
ter (pagine 54-59). Esistono più varianti 
che dipendono dal modello di computer, 
ma più o meno assomiglia a: 

20 IF A$ = “ ” THEN GOTO 10 

I due doppi apici, in questo caso, non rac¬ 
chiudono un bel niente, ossia una stringa 
nulla. Il significato della linea è abbastan¬ 
za evidente: se l’input è pari a nulla (ovve¬ 
ro se nessun tasto viene premuto), allora 
torna alla linea 10 e aspetta finché non 
viene digitato un carattere. 

Simili linee di programma servono af¬ 
finché l’esecuzione si blocchi in attesa di 
un comando, invece di correre veloce¬ 
mente alla linea successiva. 

Un caso diverso è quello nel quale tra i 
due doppi apici sia racchiuso uno spazio. 
Se si modifica la linea precedente in: 

20 IF AS = “Q" THEN GOTO 10 

l’esecuzione ritorna alla linea 10 se, e sol¬ 
tanto se, il carattere immesso equivale a 
uno spazio (ossia se l’operatore preme il 
tasto spazio o la barra spaziatrice). 
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31 

numeri casuali 

2-7 

labirinti 

68-74 

n 




cicli FOR...NEXT 

16-21 

caratteri in movimento 

54-59 



Q 


variabili 

92-96 

sottoprogrammi 

8-15 

ON...GOSUB 

64 

O 


Binari, numeri 38,41,44,45 

contapunti e contatempo 

69-73 

ON...GOTO 

62 

Satelliti, creazione di 


BORDER 


GCOL, Acom 

89 

Opcode 

67 

Dragon 

26-27 

Spectrum 

86 

GET 

55 

Operatori logici 

35 

SAVE 

22-25 



GET$, Acom, Commodore 64, 

Orologio interno 

69-73 

SCREEN 


c 


Vie 20 55, 

57, 58 

OR 

35-36 

Dragon, Tandy 

40 

V»/ 


GOSUB, 

62-64 



Simboli aritmetici 

6 

Campi 

46,75 

GOTO 18-21,60-62 

D 


Simon’s Basic 


Carro armato, creazione 


Grafica 


r 


Commodore 64 

87-88 

e controllo 

11-15 

caratteri grafici 

38-45 

PAINT, Dragon, Tandy 

91 

Sprite, definizione e uso 


Cassette, registratori a 

25 

creazione di UDG 

8-15 

PAPER, Spectrum 

86 

Commodore 64 

14,15 

CHRS, Dragon, Tandy 

26-27 

drago sputafuoco 

80-83 

Parametri 

64 

STEP 

17-21 

CIRCLE 

86-91 

ricami e modelli 

21 

Parentesi, uso delle 

35 

STOP 


CLEAR 


rana con UDG 

10-15 

PAUSE, Commodore 64 

88 

Spectmm, ZX81 

4,64 

Dragon, Tandy 

14,27 

carro armato con UDG 

10-15 

Pause nei programmi 

17 

Stringhe 


Spectrum 

10 

bassa risoluzione 

26-32 

PEEK 

59 

variabili 


CLOAD 


dipingere coi numeri 

19 

Periferiche, registratori 

alfanumeriche 4-5,95-96 

Dragon. Tandy 

14 

uso di PLOT, DRAW, PAINT, 

a cassette 

22-25 

nulle 

96 

CLS, spiegazione 

27 

CIRCLE e LINE 

85-90 

Pixel 

84 

Subroutine 

62-63 

CODE, Spectrum 

8 

vedere anche: animazione; 

PLAY, Dragon, Tandy 

73 



Codice Macchina 


movimento; teletext; UDG 

PLOT 

88-89 

T 


vantaggi del 

66 

Grafici, programma 


PMODE, Dragon, Tandy 12,19 

1 


un drago in 

80-83 

Acom 

64 

POINT, Acom 

71 

Tabelle di moltiplicazione 

5-7 

nei giochi (grafica) 

38-45 

Griglie per UDG 

8-11 

POKE 


Teletext, grafica 


linguaggi di basso livello 

65-67 



Commodore 64 

15 

BBC 

28 

velocizzare i giochi 

8-15 

1 


Dragon, Tandy 

13,40 



Colori nella grafica 


1 


Pressione dei tasti 

54-55 

1 1 


Acom 

89 

IF...THEN 3 

33-37 

PRINT 

26-32 

U 


Dragon, Tandy 

90 

IF...THEN...ELSE 

37 

PRINT AT 


UDG, definizione 8-15, 40-44 

COLOUR 

87-90 

IF...THEN...GOTO 

36, 54 

Dragon, Tandy 

26-27 

griglie per UDG 

8-11 

Compilatori 

66 

INK, Spectrum 

86 

Spectrum, ZX81 

8-9,31-32 

DATA per UDG 

45 

Cursore, definizione 

7 

INKEYS 

54-55 

PRINT TAB 


creazione di UDG 

38-45 



INPUT, istruzione 

3,4-5 

Acom 

11-28 



n 


INT, funzione 

2-3 

Commodore 64, Vie 20 

30 

V 


Ly 




PROCEDURE, Acom 

64 


Dadi, lancio di 

64 

1 


Programmi 


Variabili 3-5,92-96 

DATA 


l_ 


BASIC 

8 

nomi per 

17 

codice macchina 

67 

Linguaggi per computer 

65 

interruzione dei 

4,7,11 

stringa 

4-5 

istruzione BASIC 8-14,40-45 

Assembly 

66-67 

numerazione delle linee 7 

uso delle 

3 

Decimali, conversione 


BASIC 

65 

punteggiature 

4 

VDU, comando, 


dal binario 

38,42 

vedere Codice Macchina 


rallentare l’esecuzione 

17 

Acom 28-29,70 

DEFPROC, Acom 

64 

LINE, Dragon, Tandy 

88-91 

PSET, Dragon, Tandy 

13,90-91 

Verifica dei programmi 


DIM, Dragon, Tandy 

41 

LIST, comando 

4 

Punteggiatura, 


registrati 

24-25 

DRAW 

85-91 

LOAD, comando 

22-25 

nei programmi 

4 

VERIFY, comando 

24 








O Un gioco non è completo se mancano 
un CONTAPUNTI e un CONTATEMPO, 
che rendono l’azione più competitiva e 
avvincente. Ecco come realizzarli. 

O II computer è capace di elaborare 
enormi quantità di dati. Per immetterli, 
possiamo usare le comode istruzioni 
READ e DATA. 

O Se ci capita spesso di scrivere molte 
lettere, con il nostro ‘TEXT EDITOR ’ i 
risultati saranno ordinati e di sicuro 
effetto. 

O Comprendere come il computer possa 
contare o eseguire calcoli è molto 
importante. Un primo passo è imparare 
cos’è la NUMERAZIONE BINARIA e 
come usarla. 

O Presentare o richiedere le 
informazioni sullo schermo con ordine e 
precisione è semplice con i comandi 
PRINT e INPUT. 























